怎样连接数据SQL SERVER数据库?

reasonchan 2004-09-13 05:40:09
怎样连接数据SQL SERVER数据库? 谢谢!
...全文
193 13 打赏 收藏 转发到动态 举报
写回复
用AI写文章
13 条回复
切换为时间正序
请发表友善的回复…
发表回复
flyingZFX 2004-09-16
  • 打赏
  • 举报
回复
'======================================================================
'建立SQL连接函数
'参数:
' 1.strSQLServer----SQL服务器名(或IP地址)
' 2.strDB_Name ----要连接的数据库名
'======================================================================
Public Function Conn_DB(ByVal strSQLServer As String, Optional ByVal strDB_Name As String = "TEPCeMISInfoQuick") As Boolean
On Error GoTo err1
Dim SQL_string As String
Dim strCon As String

If Not Conn Is Nothing Then Set Conn = Nothing
Set Conn = New ADODB.Connection

strCon = ""
strCon = strCon & "Driver={SQL Server};"
strCon = strCon & "Server=" & strSQLServer & ";"
strCon = strCon & "Uid=" & SQLServerUserName & ";"
strCon = strCon & "Pwd=" & SQLServerPassword & ";"
strCon = strCon & "DataBase=" & strDB_Name

Conn.ConnectionString = strCon
Conn.CommandTimeout = 5

Conn.Open

SQL_string = ""
SQL_string = SQL_string & " SET TRANSACTION ISOLATION LEVEL READ UNCOMMITTED "
SQL_string = SQL_string & " SET DEADLOCK_PRIORITY LOW "
SQL_string = SQL_string & " SET LOCK_TIMEOUT 60000 "

Conn.Execute SQL_string, , adCmdText

Conn_DB = True
Exit Function
err1:
If Err.Number <> 0 Then
Conn_DB = False
ErrProc Err, "Conn_DB" & ":" & strDB_Name
Err.Clear
End If
End Function
flyingZFX 2004-09-16
  • 打赏
  • 举报
回复
www.connectionstrings.com
啊呀 2004-09-16
  • 打赏
  • 举报
回复
用adodb控件生成,简单
有密码登陆和没有密码是不一样地~~~
bladeinside 2004-09-16
  • 打赏
  • 举报
回复
db.ConnectionString = "driver={sql server};server=服务器名;database=数据库名;Trusted_Connection=yes;"
pweixing 2004-09-16
  • 打赏
  • 举报
回复
SQLCon.ConnectionString = "Provider=SQLOLEDB.1;Password=111;Persist Security Info=True;User ID=sa;Initial Catalog=DBName;Data Source=servername"

现在看的清楚了吧!
chsal 2004-09-16
  • 打赏
  • 举报
回复
con.connectionstring="driver={sql server};server=服务器名;uid=sa;pwd=;database=数据库名"
sql server:是只用写着几个字,还是要把sql server的目录写出来啊?
比如E:\sql server\
uid=sa;pwd=:我装的是windows身分验证,所以进入sql server的时候根本不用用户名
和密码,那这两项应该怎么填呢
suntt 2004-09-14
  • 打赏
  • 举报
回复
很详细了
haohaohappy 2004-09-14
  • 打赏
  • 举报
回复
哎呀,来晚了,就重复一下我认为好的吧。
Provider=SQLOLEDB.1;Persist Security Info=True; Initial Catalog=DataPathName;Data Source=ServerName;User ID=userid;Password=PassWord;
楼主不给分也罢
iiboy 2004-09-13
  • 打赏
  • 举报
回复
这种比较好:
Provider=SQLOLEDB.1;Persist Security Info=True; Initial Catalog=DataPathName;Data Source=ServerName;User ID=userid;Password=PassWord;
汪譢晾 2004-09-13
  • 打赏
  • 举报
回复
conn.connectionstring="driver={sql server};server=服务器;uid=sa;pwd=;database=数据库"
con.open
rs.open "表名",con

或者数据源
harryho 2004-09-13
  • 打赏
  • 举报
回复
简单用ADODB控件就可以了.又可以引用ADO.
dim con as new adodb.connection
dim ret as new adodb.recordset
con.connectionstring="driver={sql server};server=服务器名;uid=sa;pwd=;database=数据库名"
con.open
ret.open "表名",con
Alexbx 2004-09-13
  • 打赏
  • 举报
回复
'可直接用连接字符串来用 ADO 连接 SQL SERVER ,无需通过中间的 ODBC !
'可将下面的函数加入你的 模块中,直接调用即可!

Public Function vConnection_ADO(adoCnn As ADODB.Connection, DataPathName As String, Optional userid As String, Optional PassWord As String, Optional ServerName As String, Optional nFlag As Integer = 0, Optional nWinntFlag As Boolean = True) As Boolean
'**************************************************************************************************
'功能:用 ADO 连接数据库(服务器),如果连接成功则返回 True 并且返回 adoCnn 连接对象供程序使用
'参数:当 nFlag = 0 时是连接 Access 数据库,DataPathName 为数据库名称路径
' 当 nFlag = 1 时是连接 SQL Server 服务器,ServerName为服务器名,DataPathName为数据库名称
' 当 nFlag = 2 时是连接 ODBC 数据源数据库,DataPathName 为数据源名称
' 当 nFlag = 1、2 时 nWinntFlag 启用:= True为系统集成安全访问,= False为用户名和密码访问
' 访问数据库的用户名和密码分别为:UserID 和 PassWord
'时间:2004 年 08 月 04 日 ALEX ADD
'**************************************************************************************************
On Error GoTo errHandlerr

Dim CnnStr As String

vConnection_ADO = False
If Trim(DataPathName) = "" Then
MsgBox "被连接的数据库名称为空,连接失败!", vbCritical, "数据库名不能为空 ..."
Exit Function
End If
If nFlag = 0 Then
CnnStr = "provider=Microsoft.Jet.OLEDB.4.0;Data source =" + DataPathName + " ;Persist Security Info=False;Jet OLEDB:Database Password=" + PassWord
ElseIf nFlag = 1 Then
If Trim(ServerName) = "" Then ServerName = "LIBINGAO"
If Trim(userid) = "" Then userid = "sa"
If nWinntFlag Then
CnnStr = "Provider=SQLOLEDB.1;Persist Security Info=False;Initial Catalog=" + DataPathName + ";Data Source=" + ServerName + "; Integrated Security=SSPI;"
Else
CnnStr = "Provider=SQLOLEDB.1;Persist Security Info=True; Initial Catalog=" + DataPathName + ";Data Source=" + ServerName + "; User ID=" + userid + ";Password=" + PassWord
End If
ElseIf nFlag = 2 Then
If Trim(ServerName) = "" Then ServerName = ""
If Trim(userid) = "" Then userid = "admin"
If nWinntFlag Then
CnnStr = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=" + DataPathName + ";Initial Catalog=" + ServerName '由于初始目录事先未知,故在此用 ServerName 致空
Else
CnnStr = "Provider=MSDASQL.1;Persist Security Info=True ;Data Source=" + DataPathName + ";Initial Catalog=" + ServerName + ";User ID=" + userid + ";Password=" + PassWord
End If
End If

With adoCnn
If .State = adStateOpen Then .Close
.ConnectionString = CnnStr
.Open ', , , adAsyncConnect ' 参数 adAsyncConnect 用于异步打开连接(不必等待),此时要用 WithEvents 关键字声明 adoCnn
If .State = adStateOpen Then ' 用 ADO 连接 指定数据库成功,函数返回 True 和 已连接好的 对象 adoCnn
vConnection_ADO = True
Else ' 用 ADO 连接 指定数据库失败,函数返回 False 并弹出报错对话框
errHandlerr:
If Trim(err.Description) <> "" Then
MsgBox err.Description + ":" + CStr(err.number) + vbCrLf + "用 ADO 连接数据库 < " + DataPathName + " > 失败,你可能不能正常使用当前功能界面!", vbCritical, "数据库连接发生错误 ..."
Else
MsgBox "用 ADO 连接数据库 <" + DataPathName + "> 失败,你可能不能正常使用当前功能界面!", vbCritical, "数据库连接发生错误 ..."
End If
End If
End With

End Function


更多信息请参考:http://www.connectionstrings.com/
rezood 2004-09-13
  • 打赏
  • 举报
回复
Public Function ConnectString() As String
'返回连接字符串,DSN后面接用户的数据源
ConnectString = "DSN=your server;UID=sa;PWD="
End Function

1,216

社区成员

发帖
与我相关
我的任务
社区描述
VB 数据库(包含打印,安装,报表)
社区管理员
  • 数据库(包含打印,安装,报表)社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧