用VB编下个程序,关于数据库的问题！！大家一定要帮我呀，SOS，谢谢！！

luckyjeery 2002-05-20 02:21:48
用VB编下个程序
第一个FORM
有个TEXT框可以输入数据库的名字
一个按钮用作建一个VB的数据库
另一个按钮用作打开一个VB的数据库
第一个FORM
对于新建的数据库可以添加。删除
对于打开的数据库可以追加。删除
...全文
37 11 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
11 条回复
切换为时间正序
请发表友善的回复…
发表回复
daryl715 2002-05-20
  • 打赏
  • 举报
 回复
不客气
luckyjeery 2002-05-20
  • 打赏
  • 举报
 回复
thank you very much!!
daryl715 2002-05-20
  • 打赏
  • 举报
 回复
只不过是后台数据库不一样

不同的数据库只要更换相应的连接字符串cnnstr就可以了

daryl715 2002-05-20
  • 打赏
  • 举报
 回复
只不过是后台数据库不一样

不同的数据库只要更换相应的连接字符串cnnstr就可以了

luckyjeery 2002-05-20
  • 打赏
  • 举报
 回复
这么复杂呀！！要是简单的用VF做数据那该怎么办！！
liuyufeng 2002-05-20
  • 打赏
  • 举报
 回复
dim dbdata as database
dim rst as recordset


text1.text=rst(fileds(index))
daryl715 2002-05-20
  • 打赏
  • 举报
 回复
添加记录
Dim cnn1 As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim cnnstr As String
cnnstr = " provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;"
cnn1.Open cnnstr

With rst
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Open "select * from stu", cnnstr
.AddNew
.Fields("字段1") = "1"
.Fields("字段2") = "2"
.Fields("字段3") = "3"
.Fields("字段4") = "4"
.Fields("字段5") = "5"
.Update
.UpdateBatch adAffectAllChapters
End With
Set Form1.MSHFlexGrid1.DataSource = rst
rst.Close
cnn1.Close

删除记录

'删除第一条数据
Dim cnn1 As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim cnnstr As String
cnnstr = " provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;"
cnn1.Open cnnstr

With rst
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Open "select * from stu", cnnstr
.Delete adAffectCurrent
.Update
.UpdateBatch adAffectAllChapters
End With
Set Form1.MSHFlexGrid1.DataSource = rst
rst.Close
cnn1.Close

用SQL选择删除数据
Dim cnn1 As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim cnnstr As String
Dim i As Integer
cnnstr = " provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;"
cnn1.Open cnnstr

With rst
.CursorType = adOpenForwardOnly
.LockType = adLockOptimistic
.Open "select * from stu where 字段1='" & "r" & "'", cnnstr
.Delete adAffectCurrent
.Update
.UpdateBatch adAffectAllChapters
End With
Set Form1.MSHFlexGrid1.DataSource = rst
Next i
rst.Close
cnn1.Close


删除SQL搜索到的多条数据
Dim cnn1 As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim cnnstr As String
Dim i As Integer
Dim a As Integer
cnnstr = " provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;"
cnn1.Open cnnstr

rst.CursorType = adOpenKeyset
rst.LockType = adLockOptimistic
rst.Open "select * from stu where 字段1='" & "r" & "'", cnnstr
Do Until rst.EOF
rst.Delete adAffectCurrent
rst.Update
rst.UpdateBatch adAffectAllChapters
rst.MoveNext
Loop
set Form1.MSHFlexGrid1.DataSource = rst
rst.Close
cnn1.Close

删除所有数据
Dim cnn1 As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim cnnstr As String

cnnstr = " provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;"
cnn1.Open cnnstr

rst.CursorType = adOpenKeyset
rst.LockType = adLockOptimistic
rst.Open "select * from stu ", cnnstr
Do Until rst.EOF
rst.Delete
rst.Update
rst.UpdateBatch adAffectAllChapters
rst.MoveNext
Loop

Set Form1.MSHFlexGrid1.DataSource = rst
rst.Close


编辑记录
修改一条记录
Dim cnn1 As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim cnnstr As String
Dim i As Integer
Dim a As Integer
cnnstr = " provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;"
cnn1.Open cnnstr

rst.CursorType = adOpenKeyset
rst.LockType = adLockOptimistic
rst.Open "select * from stu where 字段1= '" & "text1" & "'", cnnstr

rst.Update
rst.Fields("字段1") = Me.Text1.Text
rst.Fields("字段2") = Me.Text2.Text
rst.Fields("字段3") = Me.Text3.Text
rst.Fields("字段4") = Me.Text4.Text
rst.Fields("字段5") = Me.Text5.Text
rst.UpdateBatch adAffectAllChapters

Set Form1.MSHFlexGrid1.DataSource = rst
rst.Close
cnn1.Close

修改多条记录
Dim cnn1 As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim cnnstr As String
Dim i As Integer
Dim a As Integer
cnnstr = " provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;"
cnn1.Open cnnstr

rst.CursorType = adOpenKeyset
rst.LockType = adLockOptimistic
rst.Open "select * from stu where 字段1= '" & "高" & "'", cnnstr
Do Until rst.EOF
rst.Update
rst.Fields("字段1") = Me.Text1.Text
rst.Fields("字段2") = Me.Text2.Text
rst.Fields("字段3") = Me.Text3.Text
rst.Fields("字段4") = Me.Text4.Text
rst.Fields("字段5") = Me.Text5.Text
rst.UpdateBatch adAffectAllChapters
rst.MoveNext
Loop
Set Form1.MSHFlexGrid1.DataSource = rst
rst.Close

liuyufeng 2002-05-20
  • 打赏
  • 举报
 回复
dim dbdata as database
daryl715 2002-05-20
  • 打赏
  • 举报
 回复
添加记录
Dim cnn1 As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim cnnstr As String
cnnstr = " provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;"
cnn1.Open cnnstr

With rst
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Open "select * from stu", cnnstr
.AddNew
.Fields("字段1") = "1"
.Fields("字段2") = "2"
.Fields("字段3") = "3"
.Fields("字段4") = "4"
.Fields("字段5") = "5"
.Update
.UpdateBatch adAffectAllChapters
End With
Set Form1.MSHFlexGrid1.DataSource = rst
rst.Close
cnn1.Close

删除记录

'删除第一条数据
Dim cnn1 As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim cnnstr As String
cnnstr = " provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;"
cnn1.Open cnnstr

With rst
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Open "select * from stu", cnnstr
.Delete adAffectCurrent
.Update
.UpdateBatch adAffectAllChapters
End With
Set Form1.MSHFlexGrid1.DataSource = rst
rst.Close
cnn1.Close

用SQL选择删除数据
Dim cnn1 As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim cnnstr As String
Dim i As Integer
cnnstr = " provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;"
cnn1.Open cnnstr

With rst
.CursorType = adOpenForwardOnly
.LockType = adLockOptimistic
.Open "select * from stu where 字段1='" & "r" & "'", cnnstr
.Delete adAffectCurrent
.Update
.UpdateBatch adAffectAllChapters
End With
Set Form1.MSHFlexGrid1.DataSource = rst
Next i
rst.Close
cnn1.Close


删除SQL搜索到的多条数据
Dim cnn1 As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim cnnstr As String
Dim i As Integer
Dim a As Integer
cnnstr = " provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;"
cnn1.Open cnnstr

rst.CursorType = adOpenKeyset
rst.LockType = adLockOptimistic
rst.Open "select * from stu where 字段1='" & "r" & "'", cnnstr
Do Until rst.EOF
rst.Delete adAffectCurrent
rst.Update
rst.UpdateBatch adAffectAllChapters
rst.MoveNext
Loop
set Form1.MSHFlexGrid1.DataSource = rst
rst.Close
cnn1.Close

删除所有数据
Dim cnn1 As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim cnnstr As String

cnnstr = " provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;"
cnn1.Open cnnstr

rst.CursorType = adOpenKeyset
rst.LockType = adLockOptimistic
rst.Open "select * from stu ", cnnstr
Do Until rst.EOF
rst.Delete
rst.Update
rst.UpdateBatch adAffectAllChapters
rst.MoveNext
Loop

Set Form1.MSHFlexGrid1.DataSource = rst
rst.Close


编辑记录
修改一条记录
Dim cnn1 As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim cnnstr As String
Dim i As Integer
Dim a As Integer
cnnstr = " provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;"
cnn1.Open cnnstr

rst.CursorType = adOpenKeyset
rst.LockType = adLockOptimistic
rst.Open "select * from stu where 字段1= '" & "text1" & "'", cnnstr

rst.Update
rst.Fields("字段1") = Me.Text1.Text
rst.Fields("字段2") = Me.Text2.Text
rst.Fields("字段3") = Me.Text3.Text
rst.Fields("字段4") = Me.Text4.Text
rst.Fields("字段5") = Me.Text5.Text
rst.UpdateBatch adAffectAllChapters

Set Form1.MSHFlexGrid1.DataSource = rst
rst.Close
cnn1.Close

修改多条记录
Dim cnn1 As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim cnnstr As String
Dim i As Integer
Dim a As Integer
cnnstr = " provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;"
cnn1.Open cnnstr

rst.CursorType = adOpenKeyset
rst.LockType = adLockOptimistic
rst.Open "select * from stu where 字段1= '" & "高" & "'", cnnstr
Do Until rst.EOF
rst.Update
rst.Fields("字段1") = Me.Text1.Text
rst.Fields("字段2") = Me.Text2.Text
rst.Fields("字段3") = Me.Text3.Text
rst.Fields("字段4") = Me.Text4.Text
rst.Fields("字段5") = Me.Text5.Text
rst.UpdateBatch adAffectAllChapters
rst.MoveNext
Loop
Set Form1.MSHFlexGrid1.DataSource = rst
rst.Close

luckyjeery 2002-05-20
  • 打赏
  • 举报
 回复
ADO！！！谢谢！
daryl715 2002-05-20
  • 打赏
  • 举报
 回复
你要用什么方式呢
比如说ADO？ODBC？还是？
NET调试：转储正在运行的托管代码过程中的所有字符串
在.NET环境中，托管代码指的是由.NET框架管理的代码，包括C#、VB.NET、F#等语言编写的程序。 描述中的“高级调试过程”指出这是一个针对经验丰富的开发者或系统架构师的技术，涉及到的调试方法可能不仅仅是简单的...
工程型软件项目的配置管理实例 (二) ——配置管理双枪将VSS＋SOS（上）
尤其是用用VC和VB做开发的人，绝大多数人应该都接触过和使用过VSS。VSS小巧精干，和VS开发工具集成极为紧密，就算不使用专门的配置服务器，直接在自己的开发用机上安装一个VSS，也能在代码管理方面方便不少。SOS在上...
使用Windbg和SoS扩展调试分析.NET程序
）、 不是我舍不得 - .NET里面的Out Of Memory 看到很多人在问如何分析dump，所以就写下了这篇短文,抛砖引玉。 一、安装 DebuggingToolsforWindows: 从以下 Microsoft 网站下载 DebuggingToolsfo...
我在CSDN参与的3000个帖子
2：100分急求，随机输出十个小写字母，但是，要求这十个字母不相同 3：求Sn=a+aa+aaa+…+aaa…a（n个a）之值 4：数组题 望高手帮忙！ 5：呵呵，来推荐一下我的网站，本站提供大量当今流行的免费的音乐和免费电影，...
实现SQLSERVER 调用 C# 代码
方法，需要 SQLSERVER 先导入这个程序集，然后再以 Function 映射其中方法即可。接下来需要做的就是数据库参数配置，开启 CLR 支持，并且指定某个数据库支持。从图中看登录结果是随机的，说明 C# 的 Random 函数起到...
数据库(包含打印，安装，报表)

1,217

社区成员

55,952

社区内容

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

加载中

查看更多榜单
社区公告
暂无公告

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

+ 用AI写文章