有问题要请教大家。请大家来帮忙。
问题是关于数据库的问题。
现在有一个软件它分服务器版和单机版,安装服务器后,它会在自动在odbc的驱动并是使用Sybase数据库,单机版安装后,发现没有在odbc上安装驱动。因为发现单机版没有安装odbc的驱动,就不知道,是否可以使用连接服务器版的代码来连接,本人只有一台电脑,没有多的电脑来测试。
下面是我的测试代码,请大家看一看,有问题么。如果有又应该怎么修改。
Private Sub Form_Load()ListView1.ColumnHeaders.Add , , "商品名称", ListView1.Width / 2ListView1.ColumnHeaders.Add , , "商品型号", ListView1.Width / 2ListView1.View = lvwReport Dim cn As New ADODB.Connection, Rs As New ADODB.Recordset cn.ConnectionString = "Provider=MSDASQL.1;DRIVER={adaptive server anywhere 8.0};Persist Security Info=False;DSN=ascnew_2_server; SRVR=ascnew8947;UID=dba;PWD=nokia&shangsi&asc" cn.Open Rs.CursorLocation = adUseClient Rs.Open "select * from T_AX_Corp_Info", cn, 3, 1 While Not Rs.EOF Set itmx = ListView1.ListItems.Add(, , CStr(Rs!c_code)) If Not IsNull(Rs!c_code) Then itmx.SubItems(1) = Rs.Fields("c_name") End If Rs.MoveNext '移动到下一条记录。 Wend Set Rs = Nothing Set cn = NothingEnd Sub