Question

VB中如何使用ADODB把TEXTBOX的数据写入数据库的某一个表的字段中

求详细代码

Answer 1

dim cn as adodb.connection
dim rs as adodb.recordset
dim sql as string
dim n as long
'连接数据库
set cn=new adodb.connection
cn.open "连接接数据库字符串"
'写入数据(一个文本类型字段，一个数值类型字段)
sql="insert into tb_name(fld_char,fld_Num) values('"& trim(text1) &"',"& val(text2) &")"
cn.execute sql,n
msgbox "本次操作影响的行数："& n
'查询上面插入的数据：
sql="select * from tb_name where fld_char='"& trim(text1) &"' and fld_num="& val(text2)
set rs=cn.execute(sql)
'打印结果
while not rs.eof
debug.pring format(rs!fld_char) & space(1) & format(rs!fld_num)
rs.movenext
wend
'释放对象
set rs=nothing
set cn=nothing

有关数据库的连接字符串，参考：
http://www.connectionstrings.com/