菜鸟急求!VB6.0怎样连接SQL数据库 送分了!

Question

我是第一次用SQL数据库,请告知如何生成一个SQL数据库,生成的步骤请详细说明,还有怎样用VB与我建立的SQL数据库连接,定重谢!

Answer 1

(1)我是第一次用SQL数据库,请告知如何生成一个SQL数据库,生成的步骤请详细说明
------------------------------------------------------------------------------
你在SQL SERVER中新建一个数据库，然后将这个数据库生成脚本文件，根据情况修改后转存为MASTER下的一个存储过程。至于数据库名和数据文件路径可以做成参数传入，然后在VB中用连到MASTER后执行这个存储过程。(2)还有怎样用VB与我建立的SQL数据库连接
---------------------------------------------
1.使用ODBC DSN连接字符串
DSN=mySystemDSN;Uid=myUsername;Pwd=myPassword
----------------------------------------------
2.使用无ODBC DSN的连接字符串
(1)标准安全性
Driver={SQL Server};Server=MyServerName;DataBase=myDatabaseName; _
Uid=myUsername;Pwd=myPassword
------------------------------------------------(2)信任连接(分两种）
1）连接字符串1
Driver={SQL Server};Server=MyServerName;DataBase=myDatabaseName;Uid=;Pwd=；
2）连接字符串2
Driver={SQL Server};Server=MyServerName;DataBase=myDatabaseName;Trusted_Connection=yes
---------------------------------------------------------------------------(3)连接本地SQL SERVER
Driver={SQL Server};Server=(local);DataBase=myDatabaseName; _
Uid=myUsername;Pwd=myPassword
-------------------------------------------------------------(4)连接远程SQL SERVER
Driver={SQL Server};Server=xxx.xxx.xxx.xxx; _
Address=xxx.xxx.xxx.xxx,1433; _
Network=DBMMSOCN;DataBase=myDatabaseName; _
Uid=myUsername;Pwd=myPassword
-------------------------------------------------------3.使用OLEDB PROVIDER FOR SQL SERVER的连接字符串
(1)标准安全性
Provider=SQLOLEDB.1; _
Password=myPassword; _
User ID=myUsername; _
Initial Catalog=myDatabaseName; _
Data Source=MyServerName
-------------------------------------------(2)信任连接
Provider=SQLOLEDB.1; _
Initial Catalog=myDatabaseName; _
Data Source=MyServerName; _
Integrated Security=SSPI
--------------------------------------(3)连接到命名实例
Provider=SQLOLEDB.1; _
Initial Catalog=myDatabaseName; _
Data Source=myServerName\myInstanceName; _
Password=myPassword; _
User ID=myUsername
--------------------------------------(4)连接到本地SQL SERVER
Provider=SQLOLEDB.1; _
Password=myPassword; _
User ID=myUsername; _
Initial Catalog=myDatabaseName; _
Data Source=(local)
-----------------------------------------（5）连接到远程SQL SERVER
Provider=SQLOLEDB.1; _
Netwprk Library=DBMMSOCN; _
Data Source=xxx.xxx.xxx.xxx,1433; _
Password=myPassword; _
User ID=myUsername; _
Initial Catalog=myDatabaseName;

Answer 2

建议用下面的：4)连接到本地SQL SERVER
Provider=SQLOLEDB.1; _
Password=myPassword; _
User ID=myUsername; _
Initial Catalog=myDatabaseName; _
Data Source=(local)

Answer 3

万分感谢各位的指点，VB与SQL数据库连接的部分最好可以提供一些源码！！！！

Answer 4

To：fyming(努力不一定成功,放弃一定失败) 还有就是SQL SERVER中新建一个数据库，然后将这个数据库生成脚本文件，请问怎么生成脚本文件，我建立的数据库存放在什么位置？

Answer 5

数据库建立的相关知识楼主最好找书看看呀（或找找网上的教程），一两句说不太清楚。
《SQL实用教程》清华大学出版社出，这本书不错呀，建议楼主可以看看。
另外一般试验时，初始安装sql的数据库用户名为“sa”，密码为空（即无），楼主按照这个对应程序中的用户名与密码。

Answer 6

一个连接MSSQL的模块
Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Public conn As New ADODB.Connection
Public rs As New ADODB.Recordset
Public addFlag As Boolean
Public strSql As String
 
Public Function OpenCn() As Boolean
Dim mag As String
On Error GoTo strerrmag
Set conn = New ADODB.Connection
conn.ConnectionTimeout = 30
conn.CommandTimeout = 120
conn.CursorLocation = adUseClient
conn.ConnectionString = "Provider=SQLOLEDB;Persist Security Info=False;User ID=用户名;PWD=密码;Initial Catalog=数据库名;Data Source=服务器名"conn.Open , , , adAsyncConnectDo While conn.State <> adStateOpen And conn.State <> adStateClosed
    Sleep 50
    DoEvents
LoopOpenCn = True
Exit Function
strerrmag:
mag = "Data can't connect"
Call MsgBox(mag, vbOKOnly, "Error:Data connect")
OpenCn = False
Exit Function
End FunctionPublic Sub clocn()
On Error Resume Next
If conn.State <> adStateClosed Then conn.Close
Set conn = Nothing
End Sub
Public Function openrs(ByVal strSql As String) As Boolean   
Dim mag As String
Dim rpy As Boolean
On Error GoTo strerrmag
Set rs = New ADODB.Recordset
'If addFlag = False Then rpy = True
With rs
.ActiveConnection = conn
.CursorLocation = adUseClient
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Open strSql, , , , adAsyncExecute
Do While rs.State <> adStateClosed And rs.State <> adStateOpen
    Sleep 50
    DoEvents
Loop
End With
'addFlag = True
openrs = True
Exit Function
strerrmag:
mag = "data not connect"
Call MsgBox(mag, vbOKOnly, "error:connect")
openrs = False
End Function
Public Sub clors()
On Error Resume Next
If rs.State <> adStateClosed Then rs.Clone
Set rs = Nothing
End Sub

Answer 7

--调用：
call 模块名.OpenCn
If 模块名.openrs(strSQL)=true then
    ……
Else
   ……
End
call 模块名.clors
call 模块名.clocn
其中，strSQL为所要写的SQL语句