连SQL SERVER: dim cn as new aodb.connection dim ssql as string cn.connectionstring="sqloledb.1;persist security info=false;user id=sa;data source=servername;initial catalog=databasename" CN.OPEN
ADD Record: cn.execute("insert into tablename (field1,field2,..) values('value1','value2',...)" DELETE Record: cn.execute("delete from tablename where 条件")Update Record: cn.execute("update tablename set field1='newvlaue' where 条件")
连接SQL SERVER: Dim Cn As New Adodb.Connection Dim STR As String Cn.Connectionstring="sqloledb.1;persist security info=false;user id=sa;data source=servername;initial catalog=databasename" CN.OPEN
cn.Open "Provider=SQLOLEDB.1;Password=MyPassword;Persist Security Info=True;User ID=sa;Initial Catalog=MyDb;Data Source=sqlserverName"
dim cn as new aodb.connection
dim ssql as string
cn.connectionstring="sqloledb.1;persist security info=false;user id=sa;data source=servername;initial catalog=databasename"
CN.OPEN
cn.execute("insert into tablename (field1,field2,..) values('value1','value2',...)"
DELETE Record:
cn.execute("delete from tablename where 条件")Update Record:
cn.execute("update tablename set field1='newvlaue' where 条件")
Dim Cn As New Adodb.Connection
Dim STR As String
Cn.Connectionstring="sqloledb.1;persist security info=false;user id=sa;data source=servername;initial catalog=databasename"
CN.OPEN