vb6.0怎么接数据保存到数据库中

往aa。mdb数据库里的ss表的x列添加text1里的内容

Dim conn As New ADODBConnection

Private Sub form_load()

connOpen "Provider=MicrosoftJetOLEDB40;Persist Security Info=False;Data Source=" & AppPath & "\aamdb;", "admin"

Command1Caption = "保存"

End Sub

Private Sub command1_click()

connExecute "insert into ss (x) values ('" & Text1Text & "')"

End Sub

修改回答

其实通过SQL语句来完成很简单，下面是基本代码，我没有全写，你自己补完就可以了。

dim cn as adodbconnection

dim tsql as string

private sub form_load()

set cn=new adodbconnection

cnopen "driver={microsoft access driver (mdb)};uid=admin;pwd=;dbq=" & 数据库名称

end sub

'保存

private sub cmd_save()

'插入新记录

tsql="insert into 表名(用户名,真实姓名,性别,) values('"+txt用户名text+"','"+txt真实姓名text+"','"+cob性别text+"',)"

cnexecute tsql

end sub

'更新

private sub cmd_update()

tsql="update 表名 set 用户名='"+txt用户名text+"',真实姓名='"+txt真实姓名text+"',性别='"+cob性别text+"',"

cnexecute tsql

end sub

connOpen "Provider=MicrosoftJetOLEDB40;Persist Security Info=False;Data Source=c:\bmdb;

SQL的表，连接在VB使用时，许多是实时的，只要游标指针从数据格移动到另外一个数据格，原先的数据格的输入的数据就自动保存了。如要更改，则需用UPDATE语句，并在刷新（refesh）后显示出来（即刷新的过程中得到保存）。

点击修改按钮以后，相对的数据显示到 信息显示 窗口的相对TextBox 的代码如下：

1

2

信息显示TextBox1Text = DataGridView1SelectedRows(0)Cells("Name_CN")ValueToString'中文姓名为例，其他的跟这个一样。

信息显示ShowDialog()

完成修改的SQL代码如下：

1

UPDATE 表名 SET Name_CN='新值', Name_EN='新值' WHERE 列名=条件

Private Sub Command1_Click() '储存

Open AppPath & "\1txt" For Append As #1

Print #1, Replace(Text1, " ", "") & " " & Replace(Text2, " ", "")

Close #1

End Sub

Private Sub Command2_Click() '显示

Dim a As String

Open AppPath & "\1txt" For Input As #1

Do Until EOF(1)

Line Input #1, a

t = Split(a, " ")

If UBound(t) = 1 Then

If t(0) = Text1 Then

Text2 = t(1)

Exit Do

End If

End If

Loop

Close #1

End Sub

'请参考。

以上就是关于vb6.0怎么接数据保存到数据库中全部的内容，包括:vb6.0怎么接数据保存到数据库中、vb保存ACCESS数据库信息、vb数据库保存路径问题等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！