现在用VB和Sql Server开发一个学生管理系统,数据库是student,连接数据库的语句如何编写?总共几种写法?谢谢!
解决方案 »
- ntext数据类型,vb的程序用ado读出乱码?
- 在VB.NET下的ADO 2.7在数据集静止状态下的EditMode为运行状态呢?
- ***用datareport打印报表时,出现Invalid data source错误提示****
- 如何把焦点移到TreeView中的某一个Node上(在线等)
- 如何让ADO来操作SQL语句,高手请进!
- 业余项目,找空余时间多的VB的程序员
- 如何通过VB编程获得某个IE浏览器载入页面的HTML源文件?
- 如何打印到文件
- 在VB里有没有类似DOS中的PING命令可以检测网络状况的?
- 如何用 vb 实现 外发邮件服务器 身份验证?
- 请问高手,如何把数据环境和ADO连接使用
- 请问怎么通过调用存储过程来返回记录集?
Public Function C_LianJie() As Boolean
On Error GoTo ine
If conn Is Nothing Then '如果conn没有初始化
Set conn = New ADODB.Connection
With conn
.Provider = "SQLOLEDB" '设置成OLEDB连接
.CommandTimeout = 10
.ConnectionTimeout = 10
.IsolationLevel = adXactReadCommitted
End With
End If
If conn.State = adStateClosed Then '如果连接关闭。重新建立连接
conn.Open "server=服务器名称;database=数据库名称;", "sa", ""
'MsgBox "连接成功", , "提示信息"
End If
GoTo inerr
ine:
MsgBox Err.Description, , "错误信息"
inerr:
End Function
还可以用ado控件生成上面的字符串dim con as adodb.connection
set con = new adodb.connection
con.open connect
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sql As String
cn.Open "driver={SQL Server};server=127.0.0.1;uid=sa;pwd=;database=dbname"
Set rs = New ADODB.Recordset
sql = "select * from yourtable"
rs.Open sql, cn, adOpenStatic, adLockBatchOptimistic
MsgBox rs.Fields(0).Value
在引用中加ADO2.6
' 过程名称:OpenADODatabase
' 功能描述:打开全局的数据库连接
' 参数说明:(无)
' 返 回 值:(无)
'**********************************************************************
Public Sub OpenADODatabase()
Dim strConnStr As String
On Error GoTo ErrHandle
strConnStr = "Provider=SQLOLEDB.1;Password=" _
& gdbPassWD & ";Persist Security Info=True;User ID=" _
& gdbUserID & ";Initial Catalog=" _
& gdbDBName & ";Data Source=" _
& gdbServer
Set gDBConnection = New ADODB.Connection
gDBConnection.Open strConnStr
Exit Sub
ErrHandle:
' Call msgbox("请检查输入是否正确,再重新启动该程序")
End Sub
附:Global gdbServer As String
Global gdbDBName As String
Global gdbUserID As String
Global gdbPassWD As String
gdbServer = "127.0.0.1"
gdbDBName = "name"
gdbUserID = "sa"
gdbPassWD = ""
cnnConnection.CursorLocation = adUseClient
cnnConnection.Mode = adModeReadWrite + adModeShareDenyNone
cnnConnection.Open