给你一个ADO连接串的例子:
strConnYd:='DRIVER=SQL Server;SERVER=192.168.2.2;UID=sa;PWD=;APP=Enterprise;
Initial Catalog=MyDataBase WSID=AnyThing;Network=DBMSSOCN; Address=192.168.2.2,1433'
strConnYd:='DRIVER=SQL Server;SERVER=192.168.2.2;UID=sa;PWD=;APP=Enterprise;
Initial Catalog=MyDataBase WSID=AnyThing;Network=DBMSSOCN; Address=192.168.2.2,1433'
Const SqlStat As String = "Insert into largeteam(ltno, ltname) values(@no, @name)"
Dim sError As String Dim cntLt As New SqlNonnection("data source=192.168.0.250,1433;user id=sa;password=;database=violation")
Dim cmdLt As New SqlCommand(SqlStat, cntLt)
Me.AddParameter(cmdLt, "@no", ACode)
Me.AddParameter(cmdLt, "@name", AName)
cntLt.Open()
Try
cmdLt.ExecuteNonQuery()
sError = ""
Catch e As Exception
sError = e.Message
Finally
cntLt.Close()
End Try
Return sError
End Function
CrazyFor 的方法尽管可行,但不符合实际不可行