VB与SQLServer2005数据库是怎样连接的、更新、输出
2008-11-25 12:54:00g***
VB与SQL Server2005数据库是怎样连接的、更新、输出VB与SQLServer2005数据库是怎样连接的、更新、输出:我自己写的代码,用ADO进行VB与SQL连接,用MSFlexGrid控件显示数据库中的数据~~首?
最佳回答
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。
2008-11-26 12:17:00
2008-11-26 08:48:00
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。
2008-11-26 08:04:00
很赞哦! (65)
相关文章
- 在VB程序中怎么样能与SQL数据库相连呢
- VB中怎样用ADO与SQL数据库建立连接
- Delphi7如何连接SQLSer
- vb连SQL数据库我用VB6.0链接S
- VB与SQLSERVER连接时问题请教
- sqlserver2005配置管理器
- 如何在vb.net中调用SQLServ
- 如何用VB连接数据库??如何用VB连接
- VB连SQLSERVER问题各位高手
- VB做数据库时,SQL查询用了一个AVG
- vb中adodc控件使用sql语句我在
- 纯Java代码的本地JDBC驱动程序连接
- VB.NET2005如何连接access
- VB数据库SQL语言如何实现查找Te
- 如何通过VB读、写以及查询SQL200
- VB.Net中如何往一个已绑定的SQL
- vb怎么连接access数据库呀?我对
- 用Sqlserver2008客户端怎
- Delphi7与SQLSERVER2
- 关于asp.net用VB连接sqls
- vb+sql2005问题(无效的外部过