vb+sqlserver开发问题，，很菜的，请指教！

Question

Ado
Dim StrCon As String
StrCon = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;" _
     & "Initial Catalog=你的数据库名称;Data Source=" & 你的IP地址 & ";" _
     & "Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;" _
     & "Use Encryption for Data=False;Tag with column collation when possible=False"
            
dim AcSys  as new adodb.connection 
   With AcSys
      If .State = adStateOpen Then .Close
      .ConnectionString = StrCon
      .ConnectionTimeout = 30
      .Open
    End With

Answer 1

CnnStr = "Provider=SQLOLEDB.1;Persist Security Info=False;User   ID=SA;Initial Catalog=test;Data Source=SAITEK-DZKYPNPB"
Cn1.Open CnnStr
Set Cm1.ActiveConnection = Cn1BillMaster.Open "SELECT * FROM FcBillMaster", Cn1, adOpenDynamic, adLockOptimistic
    
With BillMaster
    .AddNew
    .Fields(1) = 67
    .Fields(2) = ith!TCOM
    .Update
    XZID = .Fields(0)
End With

Answer 2

连接SQL的字符串有两种:
1.针对使用windows验证方式的
Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=数据库名;Data Source=服务器名(本机可用(local))2.针对sql server和windows验证方式的
Provider=SQLOLEDB.1;Persist Security Info=False;User ID=用户名(一般可用sa);Password=密码;Initial Catalog=数据库名;Data Source=服务器名(本机可用(local))

Answer 3

例如:Sub test()
    '定义数据库和表对象
    Dim Db As ADODB.Connection
    Dim Tb As ADODB.Recordset
    Dim iConcStr$
    
    '设置服务连接字符串
    iConcStr = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Password=;Initial Catalog=数据库名;Data Source=(local))"
    
    '创建数据库对象
    Set Db = New ADODB.Connection
    '打开数据库
    Db.Open iConc
    
    '创建表对象
    Set Tb = New ADODB.Recordset
    '打开表
    Tb.Open "sysobjects", Db, adOpenKeyset, adLockPessimistic
    
    '关闭表
    Tb.Close
    '关闭数据
    Db.Close
End Sub