各位高手，帮帮忙吧！先谢了！

Question

有一组文本框，要把这组文本框的内容加入到数据库中，各字段为：编号（int),材质(char)，类别(int),坐标（float),隶属单位（char),建造年代(datetime)
sql语句怎么写阿？（文本框为一控件数组）
请各位高手赐教！

Answer 1

Insert into Table(编号，材质，类别，坐标，隶属单位，建造年代）　values(text1.text,text2.text,text3.text,text4.text,text5.text,text6.text)

Answer 2

将text1,2,3,4,5,6)改为txt(0),txt(1),txt(2),txt(3),txt(4),txt(5),txt(6)就OK了

Answer 3

建造年代(datetime)
要按数据库字段的格式来format
字段前后加上"'"是不是远程，和SQL没有关系把

Answer 4

先假定文本框里面的数据都检查合法了，比如没有符号"'"、text6里面的内容是1999-01-01和子短定义一致
lssql = "Insert into Table(编号，材质，类别，坐标，隶属单位，建造年代）values ("
lssql = lssql & "'" & text1 & "'"
lssql = lssql & ",'" & text2 & "'"
lssql = lssql & ",'" & text3 & "'"
lssql = lssql & ",'" & text4 & "'"
lssql = lssql & ",'" & text5 & "'"
lssql = lssql & ",#" & text6 & "# )"

Answer 5

Dim strcn As String
  Dim Strsql1 As String
  dim cn as connection
dim rs2 as recordset
 
strcn = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;password=symade;Initial Catalog=ClientData;Data Source=DATACENTER"
  Strsql1 = "select * from client"
  
  
   Set cn = New ADODB.Connection
  With cn
    If cn.State = adStateOpen Then
       .Close
    End If
    .ConnectionString = strcn
    .CursorLocation = adUseClient
    .Open
  End With
Set rs2 = New ADODB.Recordset
With rs2
   .ActiveConnection = cn
   .CursorLocation = adUseClient
   .CursorType = adOpenDynamic
   .LockType = adLockPessimistic
   .Open strsql2
end with
rs2.addnewFor i = 0 To 5
   rs2.Fields(i) = Text1(i)
Next i
也可以用下面的方法Dim Sql As String
Sql = "insert into client (Client_name,Contactor,Client_addr,Phone,Fax,Website,Email) values ("
Sql = Sql & "'" & Text1(0).Text & "',"
Sql = Sql & "'" & Text1(1).Text & "',"
Sql = Sql & "'" & Text1(2).Text & "',"
Sql = Sql & "'" & Text1(3).Text & "',"
Sql = Sql & "'" & Text1(4).Text & "',"
Sql = Sql & "'" & Text1(5).Text & "',"
Sql = Sql & "'" & Text1(6).Text & "',"
Sql = Sql & "'" & Text1(7).Text & "')"cn.Execute (Sql)

Answer 6

gpo2002,jxhaq 你们好，谢谢你们的帮助
刚开始时，我也是这样写的，但运行时，在隶属单位处出错，提示：不能使用列名，只能使用常量，变量或表达式。
能否再帮我想想。谢！