串CONNSTRING = //连接字符串
字符串的SQL =“" //数据库查询
连接CON =新的连接(CONNSTRING);
命令CMD =新的命令(SQL,CON);
conopen();
SqlDataReader的DR = cmdExcuteReader;
如果(drread())
thistxtidtext =博士[ 0]; // txtid一个文本框的ID
drclose();
conclose();
metextbox1text=thisworkbookworksheets("sheet1")cells(1,1)
例如表名为sheet1,单元格为a1。textbox为textbox1
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)