怎样实现SQL与已经用VB编好的程序连接？

[baybay2000]

我弄到了一个用VB已经编好的程序，我自己在机器上装了SQL2000个人版，建立了程序中需要访问的数据库跟表，运行程序提示：未找到工程或库。。后来我在网上看到要

1，开1433端口
2，建立ODBC。。

这两个要求需要怎么做才能满足，因为本人是新手，请大家说的详细些，如果还需要设置其他的，也请不吝赐教，本人新注册的号，应该没有分，以后补上，真诚等您的赐教。。

[ojuju10]

1，开1433端口

只要打补丁到sp4默认是打开了该端口

[年糕]

是不是程序的问题哟？

[baybay2000]

以下是初始窗口的一段程序。

Sub Step()
'配置数据源*********************************************
'提取SQL驱动
Length = GetSystemDirectory(S, Len(S))
SysPath = Left(S, Length)
Dim Lab As String
Lab = SysPath + "\sqlsrv32.dll"

'提取计算机名称和用户名
Dim txtUserName As String
GetUserName strLong, 255
txtUserName = strLong
strLong = Trim(strLong) '' 运行提示：找不到工程或库。。。。停留在这行
'向创建ODBC数据源
RegOpenKeyEx HKEY_CURRENT_USER, "Software\ODBC\ODBC.INI", 0, 0, hKey
RegCreateKey HKEY_CURRENT_USER, "Software\ODBC\ODBC.INI\db_SCGL", hKey
RegSetValueEx hKey, "Database", 0, REG_SZ, ByVal "db_SCGL", Len("db_SCGL")
RegSetValueEx hKey, "Driver", 0, REG_SZ, ByVal Lab, Len(Lab)
RegSetValueEx hKey, "LastUser", 0, REG_SZ, ByVal txtUserName, Len(txtUserName)
RegSetValueEx hKey, "Server", 0, REG_SZ, ByVal "(local)", 7
RegSetValueEx hKey, "Trusted_Connection", 0, REG_SZ, ByVal "Yes", 3
'驱动Server ODBC数据源
RegOpenKeyEx HKEY_CURRENT_USER, "Software\ODBC\ODBC.INI\ODBC Data Sources", 0, 0, hKey
RegCreateKey HKEY_CURRENT_USER, "Software\ODBC\ODBC.INI\ODBC Data Sources", hKey
RegSetValueEx hKey, "db_SCGL", 0, REG_SZ, ByVal "SQL Server", 10
For i = 1 To 3
Call AddData
Next i
End Sub





Sub AddData()
SourceM = MyPath(App.Path, "窗体")
SourceM = SourceM & "Database\db_SCGL_Data.MDF"
SourceL = MyPath(App.Path, "窗体")
SourceL = SourceL & "Database\db_SCGL_Log.LDF"
'附加数据库********************************************
Set con = New ADODB.Connection
con.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa"
On Error Resume Next
Set rs = New ADODB.Recordset
str = "EXEC sp_attach_db @dbname = N'db_SCGL', @filename1 = N'" + SourceM + "', @filename2 = N'" + SourceL + "'"
Set rs = con.Execute(str)

Dim cn As New ADODB.Connection
cn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=db_SCGL"
If Err.Number = -2147217900 Then '捕捉错误号
Frm_mm.Show
Unload Me
Else
'如果数据库出现质疑 问题 将其移除
rsDropDB.Open "DROP DATABASE db_SCGL", con, adOpenDynamic, adLockOptimistic
rsDropDB.Close
End If
End Sub


懂得根据上面的代码说下该怎么配ODBC等其他设置，谢了。。。。。数据库db_SCGL已经建好，里面的表也弄好了，我只是在系统标签下建立了个ODBC用的是WINDOWNS身份验证，测试连接成功，但是运行程序提示 ：编译错误“找不到工程或库”。。。。。。无奈中，我还打了SP4补丁了…………

[baybay2000]

程序不会错，就是连接的问题，程序是别人已经测试过的，我只是把程序拿过来，洅自己机器上试试连接。。。。杂就这么难那，总是不成功。。

[hery2002]

没有安装手册?
关键是你的ODBC要怎么配置?
在程序里面比如说写的字符串啊,数据库名啊,
这些你知道嘛?
如果这些都不知道,怎么配啊?
配置ODBC 数据源
http://technet.microsoft.com/zh-cn/library/ms188681.aspx
Odbc连SQL Server数据库的几种方法
http://v3.7880.com/Info/Article-126f8b20.html

[baybay2000]

大家帮忙分析一下吧，谢谢了。。。。。。目前就是运行不了，提示：“编译错误：找不到工程或库”。。。。。。

[kk19840210]

你的数据库服务开了吗？？

[CathySun118]

con.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa"
这样需要使用master数据库，你没有使用，当然不行

[hery2002]

Length = GetSystemDirectory(S, Len(S)) 
  SysPath = Left(S, Length) 
  Dim Lab As String 
  Lab = SysPath + "\sqlsrv32.dll" 

    '提取计算机名称和用户名 
    Dim txtUserName As String 
    GetUserName strLong, 255 
    txtUserName = strLong 
    strLong = Trim(strLong)      ''   运行提示：找不到工程或库。。。。停留在这行 

这个貌似和你数据库没有关系吧!
应该是你应用程序的问题,
调试一下~

[baybay2000]

意思是要建立再建立一个连接 master的 ODBC？谢谢啊，我自己对程序跟数据库都不熟悉，所以才来请教大家，你们看来很简单的问题，我就有奌迷糊。。。

[baybay2000]

谢谢，能给解释下这几行代码的意思吗？

[baybay2000]

开了，ODBC连接测试提示成功的，但是只建立了到db_SCGL 的，没有刀master的。。。