请朋友帮忙：VB2008 *** 作Access数据库。完成连接、添加、修改、删除、读某个列值至变量等完整的代码示例谢

VB access,添加/删除/修改记录代码 给你一个示例,这个是用户登录系统

'准备工作: 数据库 D:\Mydbmdb 数据库中,建数据表:UserInfo,数据表中,建字段:User,Password,并添加一条记录

'点工程->引用 选中 Microsoft Activex Data Objects 21 Library

'控件:添加一个文本框,一个命令按钮

Private Sub Command1_Click()

Dim s As String

Dim Conn As New ADODBConnection

Dim Rs As New ADODBRecordset

ConnOpen "Provider=MicrosoftJetOLEDB40;Data Source=D:\mydbmdb"

'请将数据库名及路径换成你的实际数据库名及路径

Dim UserName As String

Dim Password As String

s = Text1Text

If s = "1" Or s = "2" Then

UserName = InputBox("请输入用户名")

Password = InputBox("请输入用户密码")

sql = "Select From [UserInfo] where User='" & UserName & "'"

'UserInfo请换成你的实际数据表名

RsOpen sql, Conn, 1, 3

If RsEOF Then

MsgBox "没有找到此用户"

Else

If Rs("Password") = Password Then

If s = "1" Then

MsgBox "123"

ElseIf s = "2" Then

MsgBox "456"

End If

Else

MsgBox "密码错误"

End If

End If

End If

End Sub

上面的例子实现了查询

如果是要添加,删除,更新等 *** 作,只要编写相应的SQL语句,再用

ConnExecute SQL 就可以了,如:

添加的:

SQL="Insert Into [UserInfo](User,Password) Values('aaaa','1234')"

ConnExecute SQL '执行后,就添加了一条记录

删除:

SQL="Delete From [UserInfo] Where User='aaaa'"

ConnExecute SQL '删除用户名为aaaa的用户记录

更新:

SQL="Update [UserInfo] Set Password='abcdefg' Where User='aaaa'"

ConnExecute SQL '执行后,修改用户aaaa的密码为abcdefg

以上只是示例,在实际使用过程中,可以将一些内容用控件输入等方式进行,这样就有很大的灵活性了

动态创建数据库

引用 microsoft DAP 36 Object Library

Dim myDB As DAODatabase

Set myDB = CreateDatabase(AppPath + "\111mdb", dbLangGeneral) '如果不存在数据库

Set myDB = OpenDatabase(AppPath + "\111mdb") '如果存在数据库

Dim str_SQL As String

str_SQL = "Create Table NewTable1(Field1 Text(10),Field2 Short)"

myDBExecute str_SQL

str_SQL = "Create Table NewTable2(Field1 Text(10),Field2 Short)"

myDBExecute str_SQL

myDBClose

向已经建好的数据库中添加记录

建立数据库a，表名字b,字段c，文本格式,在窗体上画一command ,画一个文本框，这个代码就是将文本内容写入数据库

要先引用microsoft activeX data object 25 library

代码如下：

Private Sub Command1_Click()

Dim cnDk As New ADODBConnection

Dim strDk As String

Dim rDk As New ADODBRecordset

Dim sql As String

strDk = "DBQ=" & AppPath & "\amdb;Driver={Microsoft Access Driver (mdb)};"

cnDkOpen strDk

sql = "insert into b (c) values ('" & text1text& "')"

cnDkExecute sql

cnDkClose

Set cnDk = Nothing

End Sub

在数据库中添加多条记录

只要可以进行输入文本的都可以

改一下这些吧，你单击一次就提示输入一次，输完了自动保存

改后

Data1RecordsetAddNew

Data1RecordsetFields("username") = trim(inputbox("请输入名字"))

Data1Recordset("password") =val(trim(inputbox("请输入电话")))

Data1UpdateRecord

——————————————————————————————

Data1RecordsetAddNew

Data1RecordsetFields("username") = "张三|"

Data1Recordset("password") = "fsdfsd"

Data1UpdateRecord

Data1RecordsetAddNew

Data1RecordsetFields("username") = "李四|"

Data1Recordset("password") = "fsdf432d"

Data1UpdateRecord

Data1RecordsetAddNew

Data1RecordsetFields("username") = "王五|"

Data1Recordset("password") = "f42342d"

Data1UpdateRecord

MsgBox "adad"

========================================================================================

vb+access 数据库的记录的添加与删除

Dim cn As New ADODBConnection

Dim rs As New ADODBRecordset

Private Sub Command2_Click()

Set rs = cnExecute("select from wenzhang where 内容='" & Text1Text & "'")

If Text1Text = "" Then

MsgBox ("文章不能为空！")

ElseIf rsEOF = False Then

MsgBox ("文章不能重复！")

Else

cnExecute ("insert into wenzhang values('" & Combo1Text & "','" & Text3Text & "','" & Text4Text & "','" &

Text1Text & "')")

MsgBox ("ok")

End If

End Sub

'添加按钮

Private Sub Command3_Click()

Dim myval As String

Set rs = cnExecute("select from wenzhang where 内容='" & Text1Text & "'")

If rsEOF Then

myval = MsgBox("是否保存文章？", vbInformation + vbYesNoCancel, "提示")

If myval = vbYes Then

cnExecute ("insert into wenzhang values('" & Combo1Text & "','" & Text3Text & "','" & Text4Text & "','" &

Text1Text & "')")

MsgBox ("保存成功")

Else

Combo1Text = ""

End If

Else

Text1Text = ""

Combo1Text = ""

End If

End Sub

'删除按钮

Private Sub Command4_Click()

If Text1Text = "" Then

MsgBox ("不能删除空记录！")

Else

Dim myval As String

myval = MsgBox("是否删除文章？", vbInformation + vbYesNo, "提示")

If myval = vbYes Then

Set rs = cnExecute("delete from wenzhang where 内容 ='" & Text1Text & "'")

MsgBox ("删除成功！")

End If

End If

End Sub

'连接数据库

Private Sub Form_Load()

cnConnectionString = "Provider=MicrosoftJetOLEDB40;Data Source=\vbnet\tempmdb;Persist Security Info=False"

cnCursorLocation = adUseClient

cnOpen

End Sub

以下是对Oracle中的数据库基本常用命令进行了总结介绍 需要的朋友可以过来参考下  

得到数据库名和创建日期 SELECT name created log_mode open_mode FROM v$database;

ORACLE数据库的计算机的主机名 ORACLE数据库的实例名及ORACLE数据库管理系统的版本信息 SELECT host_name instance_name version FROM v$instance;

为了知道oracle数据库版本的一些特殊信息 select from v$version;

获取控制文件名字 select from v$controlfile;

得到Oracle数据库的重做日志配置信息 SELECT group# members bytes status archived FROM v$log; select GROUP# MEMBER from v$logfile;

获取oracle的每个重做日志（成员）文件所存放的具 置 select from v$logfile;

知道ORACLE数据库的备份和恢复策略和归档文件的具 置 archive log list

知道ORACLE数据库中到底有多少表空间以及每个表空间的状态 select tablespace_name block_size status contents logging from dba_tablespaces; select tablespace_name status from dba_tablespaces;

知道每个表空间存在哪个磁盘上以及文件的名字等信息 SELECT file_id file_name tablespace_name status bytes from dba_data_files; select file_name tablespace_name from dba_data_files;

知道Oracle数据库系统上到底有多少用户和都是什么时候创建的 select username created from dba_users; select username DEFAULT_TABLESPACE from dba_users;

从控制文件中取出信息涉及到以下一些相关的命令

复制代码 代码如下: select from v$archived select from v$archived_log select from v$backup select from v$database select from v$datafile select from v$log select from v$logfile select from v$loghist select from v$tablespace select from v$tempfile

控制文件由两大部份组成 可重用的部份和不可重用的部分 可重用的部分的大小可用 CONTROL_FILE_RECORD_KEEP_TIME 参数来控制 该参数的默认值为 天 即可重用的部份的内容保留 天 一周之后这部份的内容可能被覆盖 可重用的部份是供恢复管理器来使用的 这部份的内容 可以自动扩展 Oracle数据库管理员可以使用CREAT DATABASE或 CREAT CONTROLFILE语句中的下列关键字（参数）来间接影响不可重用的部份的大小

复制代码 代码如下: MAXDATAFILES MAXINSTANCES MAXLOGFILES MAXLOGHISTORY MAXLOGMEMBERS

查看控制文件的配置 SELECT type record_size records_total records_used  FROM v$controlfile_record_section;

如果您的显示被分成了两部分 您需要使用类似于set pagesize 的SQLPlus命令先格式化输出 有关的格式化输出命令有以下这些 record_size   为每个记录的字节数 records_total 为该段所分配的记录个数 records_used 为该段所使用的记录个数

知道控制文件中的所有数据文件(DATAFILE) 表空间(TABLESPACE) 和重做日志(REDO LOG)所使用的记录情况 SELECT type record_size records_total records_used FROM  v$controlfile_record_section WHERE type IN ( ‘DATAFILE ‘TABLESPACE ‘REDO LOG );

获取控制文件名字 select value from v$parameter where name = control_files ; 或者 select from v$controlfile

如何在一个已经安装的Oracle数据库中添加或移动控制文件呢 以下是在一个已经安装的Oracle数据库中添加或移动控制文件的具体步骤

a 利用数据字典v$controlfile来获取现有控制文件名字

b 正常关闭Oracle数据库

c 将新的控制文件名添加到参数文件的CONTROL_FILES参数中

d 使用 *** 作系统的复制命令将现有控制文件复制到指定位置

e 重新启动Oracle数据库

f 利用数据字典v$controlfile来验证新的控制文件名字是否正确

g 如果有误重做上述 *** 作 如果无误删除无用的旧控制文件

注 如果您使用了服务器初始化参数文件(SPFILE) 您不能关闭Oracle数据库而且应该在第 步使用alter system set control_files的Oracle命令来改变控制文件的位置

复制代码 代码如下: SQL> alter system set control_files = ‘D:\Disk \CONTROL CTL ‘D:\Disk \CONTROL CTL ‘D:\Disk \CONTROL CTL SCOPE=SPFILE;

由于控制文件是一个极其种要的文件 除了以上所说的将控制文件的多个副本存在不同的硬盘上的保护措施外 在数据库的结构变化之后 您应立即对控制文件进行备份 可以用Oracle命令来对控制文件进行备份 alter database backup controlfile to ‘D:\backup\control bak ;

您也可将备份到一个追踪文件中 该追踪文件包含有重建控制文件所需的SQL语句 可使用以下SQL语句来产生这一追踪文件 alter database backup controlfile to trace;

lishixinzhi/Article/program/Oracle/201311/19116

SqlConnection sqlConnection = new SqlConnection("连接字符串"); //初始化连接

// 开启事务

SqlTransaction sqlTransaction = sqlConnectionBeginTransaction();

// 将事务应用于Command

SqlCommand sqlCommand = new SqlCommand();

sqlCommandConnection = sqlConnection;

sqlCommandTransaction = sqlTransaction;

try

{

// 利用sqlcommand进行数据 *** 作

// 成功提交

sqlTransactionCommit();

}

catch(Exception ex)

{

// 出错回滚

sqlTransactionRollback();

}

finally

{

//释放资源

sqlConnectionClose();

sqlTransactionDispose();

sqlConnectionDispose();

}

例如一个表INFO的字段有：user,password,question,answer

Dim cn As New ADODBConnection '定义数据库的连接

Dim rs As New ADODBRecordset

''''

这里连接数据库

''''

'查询语句

SQL="select from INFO where user='账号"

rsopen SQL

rsmovefirst

pw=rsFields(1)Value '''这就是密码

或者

pw=rsFields("password")Value '''这就是密码

以上就是关于请朋友帮忙：VB2008 *** 作Access数据库。完成连接、添加、修改、删除、读某个列值至变量等完整的代码示例谢全部的内容，包括:请朋友帮忙：VB2008 *** 作Access数据库。完成连接、添加、修改、删除、读某个列值至变量等完整的代码示例谢、Oracle数据库基本常用命令汇总、C#中 *** 作数据库等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！