连接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
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 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