Question

VB中执行字符串里的SQL语句

Dim mytime
mytime = Time
strsql = "insert into 管理员(用户名,密码,权限,注册时间) value( "
strsql = strsql & Trim(Text1.Text) & "," & Trim(Text4.Text) & "," & mytime & ")"
这里如何写执行语句？？？有几种方法

Answer 1

Insert语句错了：
Insert 要插入的表名 Into 目的表名称 Select 要显示的列名1, 要显示的列名2 From 目的表 Where 目的表.目的表字段名 Is Not Null;

追问

我是把文本框的信息写到表中，不是表到表的插入

Answer 2

你设置的数据库.execute(strsql)

追问

你设置的数据库：是我连接数据库的字符串的变量？还是记录集？

追答

我以前写过的，请参考
Set cnn = New ADODB.Connection
cnn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=你的数据库名"
cnn.Open
sql = "backup database 你的数据库名 to disk='" & Text1.Text & " '"
cnn.Execute (sql)
cnn.Close