VB 6.0 与SQL SERVER 2005 的连接方法
如题:我做了个单位用的文件管理数据库,按照教程上的方法.我怎么都连不上.请教高手.将SQL中的设置步骤方法,VB中的设置和代码(要带注释的)罗列出来.问题解决追加50分....
如题:
我做了个单位用的文件管理数据库,按照教程上的方法.我怎么都连不上.
请教高手.将SQL中的设置步骤方法,VB 中的设置和代码(要带注释的)罗列出来.问题解决追加50分.言出必行!
主要问题不是连接,是连接在TEXT框中没有显示Data Grid 中的信息 展开
我做了个单位用的文件管理数据库,按照教程上的方法.我怎么都连不上.
请教高手.将SQL中的设置步骤方法,VB 中的设置和代码(要带注释的)罗列出来.问题解决追加50分.言出必行!
主要问题不是连接,是连接在TEXT框中没有显示Data Grid 中的信息 展开
2011-01-10
展开全部
还是用代码,灵活方便
Dim GConStr as string
GConStr = "driver=sql server;server=(local);uid=sa;pwd=123;database=mydbname;"
Dim tmpCon As New ADODB.Connection
tmpCon.CursorLocation = adUseClient
Dim tmpAdo As New ADODB.Recordset
tmpAdo.CursorLocation = adUseClient
tmpAdo.CursorType = adOpenKeyset
tmpAdo.LockType = adLockOptimistic
tmpcon.open GConStr
补充:=================================
可以在RowColChange事件里加代码,如下:
Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
'当前选中行的第一列,其他列类推
Text1.Text = DataGrid1.Columns(0).Text
End Sub
Dim GConStr as string
GConStr = "driver=sql server;server=(local);uid=sa;pwd=123;database=mydbname;"
Dim tmpCon As New ADODB.Connection
tmpCon.CursorLocation = adUseClient
Dim tmpAdo As New ADODB.Recordset
tmpAdo.CursorLocation = adUseClient
tmpAdo.CursorType = adOpenKeyset
tmpAdo.LockType = adLockOptimistic
tmpcon.open GConStr
补充:=================================
可以在RowColChange事件里加代码,如下:
Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
'当前选中行的第一列,其他列类推
Text1.Text = DataGrid1.Columns(0).Text
End Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询