如何在VB中访问SQLAnywhere数据库？

Question

急！！！！

Answer 1

http://www.connectionstrings.com连接字串大全

Answer 2

首先要安装SQLAnywhere，然后再用ADO连接数据库。

Answer 3

用ADO连接数据库的连接字符串。
ODBC Driver for Sybase SQL Anywhere :
oConn.Open "ODBC; Driver=Sybase SQL Anywhere 5.0;" & _
           "DefaultDir=c:\dbpath\;" & _
           "Dbf=c:\sqlany50\mydb.db;" & _
           "Uid=myUsername;" & _
           "Pwd=myPassword;" & _
           "Dsn="""""这是我帮你找的连接字符串，我没有用过这个。
注：DefaultDir为默认数据库文件的路径，在你的程序内要结合你自己的情况进行设置。
    dbf为数据库文件（包括相应的路径）。
　　Uid为用户名。Pwd为用户密码。如果有就写，没有的话就为空。
　　表现为：Uid=;   Pwd=;
    Dsn为ODBC配文件，如果没有就按照这个写法写。示例：
你首先要在VB菜单中：
“工程”－－＞“引用”－－＞“Microsoft AxtiveX Data Objects 2.1 Library”Private Sub command1_click()
  Dim cn As New ADODB.Connection
  Dim rs As New ADODB.Recordset
  Dim cnstr As String
  cnstr = "ODBC; Driver=Sybase SQL Anywhere 5.0;" & _
           "DefaultDir=d:\dbpath\;" & _
           "Dbf=c:\sqlany50\mydb.db;" & _
           "Uid=adim;" & _
           "Pwd=54068;" & _
           "Dsn="""""
  cn.Open cnstr
  rs.CursorLocation = adUseClient
  rs.Open "select * from XXX表", cn, adOpenKeyset, adLockBatchOptimistic
  Set DataGrid1.DataSource = rs
  DataGrid1.Refresh
End Sub以上示例程序的作用是将XXX.dbf表中的数据显示在datagrid1控件中。