想要实现的数据操作功能!

moleboy 2004-09-10 01:17:36
1.创建 "ID" "用户名" "密码" 字段的数据库文件
2.添加 "01" "小命" "123123" 到相应字段中的数据库文件中!
3.删除指定ID 整行的数据行!
3.可以根据 ID 用户名 密码 查询数据库!
4.清空数据库,保留字段!
...全文
166 20 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
20 条回复
切换为时间正序
请发表友善的回复…
发表回复
moleboy 2004-09-11
  • 打赏
  • 举报
回复
如何读取指定字段下的某行内容!
moleboy 2004-09-11
  • 打赏
  • 举报
回复
顶!如何批量添加啊!
每次添加都提示文件打开不让操作!
xxl0123 2004-09-11
  • 打赏
  • 举报
回复
幫忙啊!急!
多謝了!
在ACCESS裡面為甚麼下面的程序算出GetResidualW的值為7.629395E-06,為甚麼不是為零
Dim sngPileThick As Single
Dim sngUnitW As Single
Dim intQ As Integer
sngUnitW = 21.6
sngWeight = 2332.8
intQ = 108
GetResidualW = sngWeight - intQ * sngUnitW
xxl0123 2004-09-11
  • 打赏
  • 举报
回复
在ACCESS裡面為甚麼下面的程序算出GetResidualW的值為7.629395E-06,為甚麼不是為零
Dim sngPileThick As Single
Dim sngUnitW As Single
Dim intQ As Integer
sngUnitW = 21.6
sngWeight = 2332.8
intQ = 108
GetResidualW = sngWeight - intQ * sngUnitW
moleboy 2004-09-11
  • 打赏
  • 举报
回复
如何批量添加啊!
每次添加都提示文件打开不让操作!
moleboy 2004-09-11
  • 打赏
  • 举报
回复
那如何把所有指定ID的所有整行内容提取到listview中!
RUKYO 2004-09-10
  • 打赏
  • 举报
回复
对象关系时不允许操作!
=========
不好意思,改成这样吧:

Private Sub Form_Unload(Cancel As Integer)
If mRst.State = adStateOpen Then
mRst.Close
Set mRst = Nothing
End If
End Sub
RUKYO 2004-09-10
  • 打赏
  • 举报
回复
你要用Access建一个空数据库,名为db1.mdb
moleboy 2004-09-10
  • 打赏
  • 举报
回复
Private Sub Form_Unload(Cancel As Integer)
mRst.Close
Set mRst = Nothing
End Sub
对象关系时不允许操作!
G10 2004-09-10
  • 打赏
  • 举报
回复
我已经把这页收入--收藏夹
G10 2004-09-10
  • 打赏
  • 举报
回复
先有的mdb文件,不过你也可以自己用creat 创建
moleboy 2004-09-10
  • 打赏
  • 举报
回复
知道了!那怎么删除表和里面的字段?
不好意思我根本不会数据库!
helanshan 2004-09-10
  • 打赏
  • 举报
回复
晕啊,你没有建立数据库,怎么连接啊。。
moleboy 2004-09-10
  • 打赏
  • 举报
回复
mCat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb" & ";Persist Security Info=False"
这里出错!提示找不到文件,难道要事先有mdb数据库文件吗?
RUKYO 2004-09-10
  • 打赏
  • 举报
回复
'工程->引用Microsoft ActiveX Data Objects 2.x Library
'工程->引用Microsoft ADO Ext. 2.x for DDL and Security
'在窗体上有1个DataGrid、6个CommandButton、3个TextBox

Option Explicit
Public mCnnString As String
Dim mRst As New ADODB.Recordset

Private Sub Command1_Click() '1.创建 "ID" "用户名" "密码" 字段的数据库文件
Dim mTbl As New Table
Dim mIdx As New ADOX.Index
Dim mCat As New ADOX.Catalog

' 打开目录。
mCat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb" & ";Persist Security Info=False"

' 定义表并将其追加到目录
mTbl.Name = "UserPassWord"
mTbl.ParentCatalog = mCat
mTbl.Columns.Append "ID", adVarWChar
mTbl.Columns.Append "用户名", adVarWChar
mTbl.Columns.Append "密码", adVarWChar
mCat.Tables.Append mTbl

' 定义多列索引
mIdx.Name = "MultiColIdx"
mIdx.Columns.Append "ID"

' 将索引追加到表上
mTbl.Indexes.Append mIdx
End Sub

Private Sub Command2_Click() '2.添加 "01" "小命" "123123" 到相应字段中的数据库文件中
Dim mCon As New ADODB.Connection
mCon.CursorLocation = adUseClient
mCon.Open mCnnString
mCon.Execute "Insert Into UserPassWord Values('" & "01'," & " '" & "小庆'," & " '126123" & "')"
mCon.Close
Set mCon = Nothing
End Sub

Private Sub Command3_Click() '3.删除指定ID(Text1.Text)整行的数据行
Dim mCon As New ADODB.Connection
mCon.CursorLocation = adUseClient
mCon.Open mCnnString
mCon.Execute "Delete From UserPassWord Where ID = '" & Trim(Text1.Text) & "'"
mCon.Close
Set mCon = Nothing
End Sub

Private Sub Command4_Click() '4.根据用ID(Text2.Text)查询数据库
If mRst.State = adStateOpen Then mRst.Close
mRst.CursorLocation = adUseClient
mRst.Open "Select * From UserPassWord Where ID = '" & Trim(Text2.Text) & "'", mCnnString, adOpenStatic, adLockOptimistic, adCmdText
Set DataGrid1.DataSource = mRst
End Sub

Private Sub Command5_Click() '4.根据用户名(Text3.Text)查询数据库
If mRst.State = adStateOpen Then mRst.Close
mRst.CursorLocation = adUseClient
mRst.Open "Select * From UserPassWord Where 用户名 = '" & Trim(Text3.Text) & "'", mCnnString, adOpenStatic, adLockOptimistic, adCmdText
Set DataGrid1.DataSource = mRst
End Sub

Private Sub Command6_Click() '5.清空数据表,保留字段
Dim mCon As New ADODB.Connection
mCon.CursorLocation = adUseClient
mCon.Open mCnnString
mCon.Execute "Delete From UserPassWord Where True"
mCon.Close
Set mCon = Nothing
End Sub

Private Sub Form_Load()
mCnnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb" & ";Persist Security Info=False"
End Sub

Private Sub Form_Unload(Cancel As Integer)
mRst.Close
Set mRst = Nothing
End Sub
AKIIscer 2004-09-10
  • 打赏
  • 举报
回复
UP UP UP
ryuginka 2004-09-10
  • 打赏
  • 举报
回复
up
leoiv 2004-09-10
  • 打赏
  • 举报
回复
楼主可以看看SQL语句,以上问题全部可以用SQL语句实现
leoiv 2004-09-10
  • 打赏
  • 举报
回复
create database
caeate table
楼主要创建哪个?
tztz520 2004-09-10
  • 打赏
  • 举报
回复
楼主第一个问题是想创建一个数据库还是一个表呀?
其它那几个问题都简单.

1,217

社区成员

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

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