急急急，如何用vb连接服务器上sql server，或是对某个access文件进行操作？

如能提供源代码更好。
(回复者给分。)

解决方案 »

  1.   

    用ado对象:
        dim conn as new adodb.connection
        strconn = "Provider=msdasql.1;driver={sql server};server=yourserver;uid=sa;pwd=; database=powerdb"
        Conn.Open Strconn    //这就连上了
    祥查msdn --> ado2.1初步
      

  2.   

    利用VB的ADO Connection对象进行连接：1、当要连接SQL数据库时：
        dim Conn as new adodb.connection
        strconn = "Provider=SQLOLEDB.1;User ID=sa;Password=;Initial Catalog=JX_Box;Data Source=server"
        Conn.Open Strconn1、当要连接Access数据库时：(本例为Access2000)
        dim Conn as new adodb.connection
        strconn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\test\db1.mdb;Persist Security Info=False"
        Conn.Open Strconn
      

  3.   

    '用数据源登录
    'myAdoConn.Open "DSN=posdata;UID=" & gLoginId & ";Password=" & gLoginPwd
    '直接用ACCESS数据库连接myAdoConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db.mdb;Jet OLEDB:Database Password="
    '用直接与SQL连接登录
    'myAdoConn.Open "provider=SQLOLEDB;Data Source=" & SVR & ";User ID=" & UID & ";Password=" & PWD & ";Initial catalog=" & SysDB
      

  4.   

    设置adodc的 connectionString =Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\..\access文件名.mdb;Persist Security Info=False数据提供者选 Jet.OLEDB.4.0
    adodc属性 选连接字符串 选 生成（u） 然后选 1 选择和输入数据库名称。选你所要控制的access数据库文件。然后测试一下
    完成后大概这样connectionString =Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\..\access文件名.mdb;Persist Security Info=False然后
    在记录源 select * from  x '需要操作的表名
    就可以了 
    sql server也差不多 换个数据提供者
      

  5.   

    嗯。请注意。access文件也是在服务器端的。
    说白了就是要做一个c/s模式的东西。
      

  6.   

    学习时做的访问sql server的例子
    <%@ Language=VBScript %>
    <HTML>
    <HEAD>
    <META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
    </HEAD>
    <BODY>
    <H1>查询Authors:<H1><P>Enter a state abbreviation and click"Find"</P>
    <Form Method="Get" Action="adoSQLFind.asp">
    <Input Type="Text" Name="state" Value="<%Request.QueryString("state")%>">
    <Input Type="Submit" Value="Find">
    </Form>
    <%If Len(Request.QueryString("State"))>0 Then %>
    <P><%
    Dim strConnection
    Dim objConnection
    Dim strSQL
    Dim rstAuthors
    strConnection="Provider=SQLOLEDB.1;Password=911gts;Persist Security Info=True;User ID=sa;Initial Catalog=pubs;Data Source=grunge"
    Set objConnection=Server.CreateObject("ADODB.Connection")
    objConnection.Open strConnection
     
    strSQL="Select au_id,au_lname,state From authors Where state='"&Request.QueryString("State")&"' ORDER BY au_id"

    Set rstAuthors=objConnection.Execute(strSQL)
    %>
    <Table Border=1 Cellpadding=5>
    <TR>
    <TD><B>Author ID</B></TD>
    <TD><B>Last Name</B></TD>
    <TD><B>State</B></TD>  
    </TR>
    <%Do Until rstAuthors.Eof%>
    <TR>
    <TD><%=rstAuthors("au_id")%></TD>
    <TD><%=rstAuthors("au_lname")%></TD>
    <TD><%=rstAuthors("state")%></TD>  
    </TR>
    <%
     rstAuthors.MoveNext
     Loop
      rstAuthors.Close
      Set rstAuthors=Nothing
      Set objConnection=Nothing
    %>
    </Table></P>
    <%
    END If
    %>

    </BODY>
    </HTML>
      

  7.   

    Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\Fx\G\1.mdb;Persist Security Info=FalseData Source=\\服务器名称+数据库路径+数据库名称
      

  8.   

    1、连接服务器SQL数据库
        dim Conn as new adodb.connection
        dim rs as new adodb.recordset
        Conn.Open "Provider=SQLOLEDB.1;User ID=sa;Password=sa;Initial Catalog=要打开的数据库;Data Source=服务器名字或IP"
        rs.open "sql语句",Conn,3,1
    2、连接Access数据库
        dim Conn as new adodb.connection
     dim rs as new adodb.recordset     Conn.Open  "Provider=Microsoft.Jet.OLEDB.4.0;Data         Source=c:\db1.mdb;Persist Security Info=False"
        rs.open "sql语句",Conn,3,1