怎样用vb向sql表中添加数据？？

Question

天下数据库全一样的 用的 insert into table...的

Answer 1

dim cnn as new adodb.connection
dim rst as new adodb.recordsetcnn.open "打开一个数据库连接"
rst.open "select * from 表名",cnn,,,(后面三个参数省略)
rst.addnew “要添加的数据”（按字段排列）

Answer 2

dim cn   
   dim connstr
   connstr="Driver={SQL Server};Server=(local);Uid=sa;Pwd=12345678;Database=j123456"
     set cn=server.createobject("ADODB.CONNECTION")
     cn.open connstr 
SQL="insert into bbsfile(.........) values('"cn.execute SQL

Answer 3

先用ODBC建个数据源名DSN和密码sa，然后，在VB程序中写：
  dim sql as string
  dim rs as new ADODB.RecordSet
  dim cn as new ADODB.Connection
  cn.open "DSN=你事先建的数据源名","sa"       
  sql="insert into 表名(字段1,字段2,......)"
  sql=sql & "values('','',....)"
  set rs=cn.execute(sql)