新手学ADO连SQLSERVER,用纯代码连接,急!!!!100分

Question

只要一个简单的例子!
什么都可以!

Answer 1

dim cn as new adodb.connection
dim ConnectString  as string
ConnectString = "driver={SQL Server};uid=" & MySettingUserID & ";pwd=" & MySettingPwd & ";database=" & MySettingDB & ";server=" & MySettingDateSource & ""
     cn.Open ConnectString
换成你自己的变量就可以了

Answer 2

ConnectStringmsdb = "Provider=SQLOLEDB.1;Password=" & Password & ";Persist Security Info=True;User ID=" & MySettingUserID & ";Initial Catalog=msdb;Data Source=" & MySettingDateSource & ""
cn.Open ConnectStringmsdb OLEDB方式，连接到msdb数据库，请将相关变量换成你自己的

Answer 3

用vb中的新建 数据工程 ,  连接 SQLSERVER  在连接属性的属性中可以看到连接的内容.
纯代码 :
翻翻书就可以知道了, 对照上面的看到连接的内容 自己填写即可.
有时候需要设为本地游标,才可以.

Answer 4

怎么还是不行,数据库名studentsys, id=sa,pw=sa
急死我了.

Answer 5

'工程->引用->Microsoft ActiveX Data Objects 2.0 Library (后面为版本号)
cn As New ADODB.Connection
cn.ConnectionString = "Provider=SQLOLEDB.1;Password=sa;Persist Security Info=True;User ID=sa;Initial Catalog=studentsys;Data Source="sql server所在的机器名称"
cn.Open 
if cn.state=1 then
   '联接成功
else
  '联接失败
end if

Answer 6

Private cnn As ADODB.Connection
Private rst As ADODB.RecordsetPrivate Sub Form_Load()
    Dim strCnn As String
    Dim strSQL As String    Set cnn = New ADODB.Connection
    Set rst = New ADODB.Recordset    strCnn = "Provider=sqloledb;" & _
            "Data Source=jl;" & _
            "Initial Catalog=tndb;" & _
            "User ID=sa;" & _
            "Password=;" & _
            "Persist Security Info=False;"    cnn.CursorLocation = adUseClient
    cnn.Open strCnn    strSQL = " SELECT * FROM tnCLT"
    rst.Open strSQL, cnn, adOpenStatic, adLockPessimistic, adCmdT
    set DataGrid1.DataSource=rst
END IF

Answer 7

Option ExplicitPrivate Rs As New ADODB.Recordset
Private Conn As New ADODB.ConnectionPrivate Sub Form_Load()
 Dim strConn As String
 
'strConn是字符；连接串，你可以找个adodb自动身成。
 strConn = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=pubs;Data Source=ANYA“
 ' 使用客户端数据游标
 Conn.CursorLocation = adUseClient
 ' 打开连接
 Conn.Open strConn
 
 ' 如果RecordSet的状态不是关闭状态,则关闭Recordset
 If Rs.State <> adStateClosed Then Rs.Close
 
 ' Recordser打开表People
 Rs.Open "Select * from jobs", Conn, adOpenKeyset, adLockOptimistic
 
 ' 报告出 一共多少笔数据,测试是否存在数据
 ' MsgBox Rs.RecordCount
 
 ' 绑定进DataGrid
 Set DataGrid1.DataSource = Rs
 
End Sub

Answer 8

用daisy8675(莫依)的方法， adodb在工程--部件中加，选Microsoft ActiveX Data Objects 2.0 Library 即可。

Answer 9

dim tabserver As ADODB.Connection
Set tabserver = New ADODB.Connection
tabserver.ConnectionString = "driver=sql server;server=202.100.105.49;UID=sa;PWD=sa;database=studentsys"  '远程数据库，可以改程序计算机名
tabserver.Open'工程->引用->Microsoft ActiveX Data Objects 2.0 Library (后面为版本号)这个东东必须引用，不然第一句就会报错，我刚开始学习的时候就晕了好长时间，都只告诉代码怎么写，却没告诉数据环境。

Answer 10

我引用以上的代码,还是连接不上,提示"SQLSERVER不存在或拒绝访问"都一天了,郁闷呀!!!!!!!

Answer 11

1：服务器名写对了没有？
strConn = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=pubs;Data Source=ANYA"
中Data Source要=你的服务器名。2：你装SQL数据库了么？
没装用别人的也可以。3：SQL服务器启动了么？
没启动就要启动了。开始——》所有程序——》Microsoft SQL Server——》服务管理器

Answer 12

请问一下，我在SQL里没找到能写语句的地方，请问一下在那里的啊！

Answer 13

开始-》运行。输入cliconfg，回车。
在弹出的对话框中设置只允许TCP-IP

Answer 14

////那里能写语句吗？好像不行啊
找到查询分析器，里面可以写入语句开始菜单
--程序
   ---MicroSoft SQL Server  
      ----查询分析器
         ----设置连接的相关属性
            ---写你的代码

Answer 15

我引用以上的代码,还是连接不上,提示"SQLSERVER不存在或拒绝访问"都一天了,郁闷呀!!!!!!!你在编程用的客户机上装一个SQL Server客户端，连一下远程数据库，看能不能连上，说不定是你的服务器装的有问题！我碰到过在服务器本机可以用数据库，远程怎么也连不上的情况，还有数据库里的用户的设置是否正确！

Answer 16

Dim objCon As New ADODB.Connection
Dim objCmd As New ADODB.CommandobjCon.ConnectionString = "provider = sqloledb;data source = localhost;user id = sa;password = yourpwd"
objCon.CursorLocation = adUseClient
objCon.Open
objCon.DefaultDatabase = "yourdbname"
objCmd.ActiveConnection = objCon如果服务启动了的，数据库名写对了，应该是可以的

Answer 17

'工程->引用->Microsoft ActiveX Data Objects 2.0 Library (后面为版本号)
cn As New ADODB.Connection
cn.ConnectionString = "Provider=SQLOLEDB.1;Password=sa;Persist Security Info=True;User ID=sa;Initial Catalog=studentsys;Data Source="sql server所在的机器名称或者IP地址"
cn.Open if cn.state=1 then
   '连接成功
else
  '连接失败
end if
User ID=sa;
是是连接服务器的帐号Password=sa
是连接服务器的密码