VB与SQL Server2005数据库是怎样连接的、

VB与SQL Server2005数据库是怎样连接的、更新、输出

全部回答

2008-11-26

0 0

    我自己写的代码,用ADO进行VB与SQL连接,用MSFlexGrid控件显示数据库中的数据~~首先要添加ADO引用和MSFlexGrid控件~~Private Sub Command1_Click() Dim con As New ADODB。
  Connection '定义ADO对象 Dim rs As New ADODB。  Recordset Dim strsql As String Dim i As Integer con。
  ConnectionString = "provider=SQLOLEDB。1;data source=(local);initial Catalog=Student; integrated security=SSPI" '初始化对象，打开连接(Windows身份验证) con。
    Open strsql = "select * from Student" rs。Open strsql, con, 2, 2 '打开记录集 '使用rs填充控件 '初始化控件 With MSFlexGrid1 。
  Cols = rs。Fields。Count + 1 '设定表格列数，统计字段数量,列数要比字段数多一个(Fields。  Count为字段数)，第一列为空列,当记录指示器用。
  Rows = rs。RecordCount + 2 '使用 RecordCount 属性可确定Recordset对象中记录的数目。ADO 无法确定记录数时，或者如果提供者或游标类型不支持 RecordCount，则该属性返回 1。
    即该初始化行数为1; 。ColWidth(2) = 1800 '第3列的宽度为1800 。TextMatrix(0, 0) = "序号" '设置第1行第1列的文本内容。
  TextMatrix(0, 1) = rs(0)。Name '读出数据使用textmatrix属性,将第1个字段的名称赋值给控件单元格。  TextMatrix(0, 2) = rs(1)。
  Name End With '填充控件 i = 1 While Not rs。EOF MSFlexGrid1。Rows = MSFlexGrid1。Rows + 1 '添加新行 MSFlexGrid1。
  TextMatrix(i, 0) = Str(i) MSFlexGrid1。  TextMatrix(i, 1) = rs(0) '在当前记录中,将第1个字段的内容赋值给控件单元格 MSFlexGrid1。
  TextMatrix(i, 2) = rs(1) i = i + 1 rs。MoveNext '跳到下一条记录 Wend rs。Close con。  Close End Sub。

提交

x***

2008-11-26

121 0

question:VB与SQL Server2005数据库是怎样连接的、更新、输出 5标签: sql, vb, 数据库 VB与SQL Server2005数据库是怎样连接的，用什么语句进行数据库的更新以及输出数据库的内容的，高手帮帮忙，急用！！！！！！ ?HiS 回答:2 人气:1 提问时间:2008-11-25 12:50answer:c++ c# vc JAVA DOT NET 数据库程序开发语言 html 网站开发软件工程操作系统网络安全多媒体图像 IT认证考试硬件综合计算机学习外语（以上有资料有视频更多学习交流和分享） ( 下资源需要要BFB 最好攒BFB 1小时有个50BFB 要学快去晚了zc就关了wait are you waiting for?。
。

提交

风***

2008-11-26

118 0

    Public con As ADODB。Connection, Str As String, Adodc As ADODB。Recordset, sql As StringPublic Sub Ado_Open()con = New ADODB。
  ConnectionStr = "Driver={Microsoft Access Driver (*。  mdb)};DBQ=" & System。IO。Directory。
  GetCurrentDirectory & "\ b;pwd=;ReadOnly=False"con。Open(Str)End SubPublic Sub NewAdo()Adodc = New ADODB。
    RecordsetAdodc。CursorLocation = UseClientAdodc。
    Open(sql, con, OpenDynamic, LockBatchOptimistic)End Subpublic sub commandbutton1()ado_open sql="select * from user"newadotextbox1= elds(0)end sub。

提交

相关回答

1***

2006-06-16

VB连SQLSERVER问题各位高手

  '数据源信息常量 Public Const conn As String = "Provider=SQLOLEDB。1;Password=sa;User ID=sa;Initial Catalog=StudentFiles;Data Source=localhost;" '一次执行connect操作可以访问数据库的次数 Public Const CONNECT_LOOP_MAX = 10 '== 标记数据库是否连接 == Private IsConnect As Boolean '== 标记执行Connect()函数后，访问数据库的次数 == Private Connect_Num As Integer Private cnn As ADODB。
  Connection '连接数据库的Connection对象 Private rs As ADODB。Recordset '保存结果集的Recordset对象 '连接数据库 Private Sub Connect() '如果连接标记为真，则返回。
  否则会出错 If IsConnect = True Then Exit Sub End If '关键New用于创建新对象cnn Set cnn = New ADODB。
  Connection '设置连接字符串ConnectionString属性 cnn。ConnectionString = conn '打开到数据库的连接 cnn。Open '判断连接的状态 If cnn。
  State <> adStateOpen Then '如果连接不成功，则显示提示信息，退出程序 MsgBox "数据库连接失败" End End If '设置连接标记，表示已经连接到数据库 IsConnect = True End Sub '断开与数据库的连接 Private Sub Disconnect() Dim Rc As Long '如果连接标记为假，标明已经断开连接，则直接返回 If IsConnect = False Then Exit Sub End If '关闭连接 cnn。
  Close '释放cnn Set cnn = Nothing '设置连接标记，表示已经断开与数据库的连接 IsConnect = False End Sub '使用Connect_Num控制数据库连接 Public Sub DB_Connect() Connect_Num = Connect_Num + 1 Connect End Sub Public Sub DB_Disconnect() If Connect_Num >= CONNECT_LOOP_MAX Then Connect_Num = 0 Disconnect End If End Sub '强制关闭api方式访问的数据库，计数器复位 Public Sub DBapi_Disconnect() Connect_Num = 0 Disconnect End Sub '执行数据库操作语句 Public Sub SQLExt(ByVal TmpSQLstmt As String) '创建Command对象cmd Dim cmd As New ADODB。
  Command '连接到数据库 DB_Connect '设置cmd的ActiveConnection属性，指定与其关联的数据库连接 Set cmd。ActiveConnection = cnn '设置要执行的命令文本 cmd。
  CommandText = TmpSQLstmt ' MsgBox TmpSQLstmt '执行命令 cmd。Execute '清空cmd对象 Set cmd = Nothing '断开与数据库的连接 DB_Disconnect End Sub '执行数据库查询语句 Public Function QueryExt(ByVal TmpSQLstmt As String) As ADODB。
  Recordset '创建Recordset对象rst Dim rst As New ADODB。Recordset '连接到数据库 DB_Connect '设置rst的ActiveConnection属性，指定与其关联的数据库连接 Set rst。
  ActiveConnection = cnn '设置游标类型 rst。CursorType = adOpenDynamic '设置锁定类型 rst。LockType = adLockOptimistic '打开记录集 rst。
  Open TmpSQLstmt '返回记录集 Set QueryExt = rst End Function 。收起

VB与SQL Server2005数据库是怎样连接的、

全部回答

相关回答

VB连SQLSERVER问题各位高手

类似问题换一批

热点推荐

热度TOP

热点搜索换一换

VB与SQL Server2005数据库是怎样连接的、

全部回答

相关回答

VB连SQLSERVER问题各位高手

类似问题换一批

热点推荐

热度TOP

热点搜索 换一换

热点搜索换一换