首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

有有关问题要。请大家来帮忙

2012-01-26 
有问题要请教大家。请大家来帮忙。问题是关于数据库的问题。现在有一个软件它分服务器版和单机版,安装服务器

有问题要请教大家。请大家来帮忙。
问题是关于数据库的问题。
现在有一个软件它分服务器版和单机版,安装服务器后,它会在自动在odbc的驱动并是使用Sybase数据库,单机版安装后,发现没有在odbc上安装驱动。因为发现单机版没有安装odbc的驱动,就不知道,是否可以使用连接服务器版的代码来连接,本人只有一台电脑,没有多的电脑来测试。
下面是我的测试代码,请大家看一看,有问题么。如果有又应该怎么修改。

VB code
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


[解决办法]
只有一台电脑可以下载并安装
Microsoft Virtual PC 或者 VMWare Station。
[解决办法]
这两个软件都可以免费使用,还有一个不错的VirtualBox是开源的.这几个软件在国内用的人都不少,应该比较容易搜得到使用帮助:)
这里有个中文的专门的网站:
http://www.xuniji.com/
这个简单介绍里有截图:
http://www.xuniji.com/vmware/view.asp?id=484
[解决办法]
没有问题,可以
ODBC是ODBC,跟这个软件是服务器版本还是客户端版本没关系.

热点排行