VB与数据库（4）_oLinXi1234567的博客

相关文章推荐

文武双全的豌豆 · 蓝牙耳机开关机回连手机的自动化测试代码 - ...· 9 月前 ·

侠义非凡的拐杖 · QT ...· 1 年前 ·

大力的红酒 · python基础算法书 ...· 1 年前 ·

腼腆的围巾 · ascx aspx ashx asmx ...· 1 年前 ·

我们设Combo1 的名称为cmbField，Combo2为cmbname，Text1为txtno，Text2为txtname，Text3为txtjd，Text4为txtwd，添加的按钮为cmdadd，删除为cmddel，修改为cmdedit，清空为cmdclear

Private Sub cmbField_Click()
cmbName.Clear '清空cmbname
Adodc1.RecordSource = "select * from VOR台地理位置"
Adodc1.Refresh

Do While Not Adodc1.Recordset.EOF
cmbName.AddItem Adodc1.Recordset.Fields(cmbField.Text)
Adodc1.Recordset.MoveNext
Loop

cmbName.Text = cmbName.List(0)

End Sub

Private Sub cmbName_Click()
Dim condition
condition = Trim(cmbField.Text) 'trim 取出输入字符串中的空格

If Adodc1.Recordset.Fields(condition).Type = 202 Then '被选择的字段类型是文本型
Adodc1.RecordSource = "select * from VOR台地理位置 where " & condition & "= '" & cmbName.Text & "'"
Else '被选择的字段类型不是文本型
Adodc1.RecordSource = "select * from VOR台地理位置 where " & condition & " = " & cmbName.Text
End If

Adodc1.Refresh

txtno.Text = Adodc1.Recordset.Fields("VOR台编号") '将字段值在文本框中显示
txtname.Text = Adodc1.Recordset.Fields("所处位置")
txtjd.Text = Adodc1.Recordset.Fields("经度")
txtwd.Text = Adodc1.Recordset.Fields("纬度")

End Sub

Private Sub cmdadd_Click()

On Error GoTo errorhandler: '如果出现主索引重复的错误，则跳转到错误处理的部分

If txtno.Text <> "" Then
Adodc1.Recordset.AddNew '将文本框中用户输入的各个字段的取值填入相应字段中

Adodc1.Recordset.Fields("VOR台编号") = txtno.Text
Adodc1.Recordset.Fields("所处位置") = txtname.Text
Adodc1.Recordset.Fields("经度") = Val(txtjd.Text)
Adodc1.Recordset.Fields("纬度") = Val(txtwd.Text)

Adodc1.Recordset.Update

cmbName.Clear
Adodc1.RecordSource = "select * from VOR台地理位置"
Adodc1.Refresh

Do While Not Adodc1.Recordset.EOF
cmbName.AddItem Adodc1.Recordset.Fields(1)
Adodc1.Recordset.MoveNext
Loop

cmbField_Click
cmdclear_Click
Else
MsgBox "VOR台编号是主索引字段，不能为空", , "错误提示"
End If

Exit Sub

errorhandler: MsgBox "您添加的VOR台编号已经存在", , "错误提示"

End Sub

Private Sub cmdclear_Click()
txtno.Text = ""
txtname.Text = ""
txtjd = ""
txtwd = ""

End Sub

Private Sub cmddel_Click()

If txtname.Text <> "" Then '根据货物名称删除记录
Adodc1.RecordSource = "select * from VOR台地理位置 where VOR台编号 = '" & cmbName.Text & "'"
Adodc1.Refresh
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveNext
cmbName.Clear
cmbField_Click
cmdclear_Click

End If

End Sub

Private Sub cmdedit_Click()
On Error GoTo errorhandler: '如果出现主索引重复的错误，则跳转到错误处理的部分
If txtno.Text <> "" Then

'Adodc1.RecordSource = "select * from VOR台地理位置 where VOR台编号 = '" & txtno.Text & "'"
'Adodc1.RecordSource = "select * from VOR台地理位置 where VOR台编号 = '" & txtno.Text & "'"
' Adodc1.Refresh
Adodc1.Recordset.Fields("VOR台编号") = txtno.Text
Adodc1.Recordset.Fields("所处位置") = txtname.Text
Adodc1.Recordset.Fields("经度") = Val(txtjd.Text)
Adodc1.Recordset.Fields("纬度") = Val(txtwd.Text)
cmdadd_Click

Else
MsgBox "VOR台编号是主索引自动，不能为空", , "错误提示"
End If

Exit Sub

errorhandler: MsgBox "VOR台编号是主索引自动，不能重复", , "错误提示"

End Sub

Private Sub Form_Load()
Dim i As Integer
Adodc1.RecordSource = "select * from VOR台地理位置" '连接数据库表
Adodc1.Refresh
cmbField.Clear '清空下拉列表
For i = 0 To Adodc1.Recordset.Fields.Count - 1 '将每个字段的名字作为一个项目，添加到cmbfields中
cmbField.AddItem Adodc1.Recordset.Fields(i).Name
Next i

cmbField.Text = cmbField.List(0) '默认显示第一项
cmbName.Text = Adodc1.Recordset.Fields(0)
txtno.Text = Adodc1.Recordset.Fields(0)
txtname.Text = Adodc1.Recordset.Fields(1)
txtjd.Text = Adodc1.Recordset.Fields(2)
txtwd.Text = Adodc1.Recordset.Fields(3)

'cmbName.Clear
'txtno.Text = ""
'txtname.Text = ""
'txtjd.Text = ""
'txtwd.Text = ""

End Sub

public partial class Form1 : Form private string connString = "Data Source=.;DataBase=TestDB;UID=sa;PWD=lwm110"; SqlConnection conn; DataTable dt = new DataTable();...

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim path As String path = "C:\Documents and Settings\Administrator\My Documents\Visual Studio 2008\Projects\创建TXT文本并写入及查询\12312\bin\Debug\lio.Txt" '记得自己改路径（绝对路径） Dim strw As New StreamWriter(path, True) 'append为TRUE表示追加 Dim strFull As String = "This is the original text" Dim strOriginal As String = "original" Dim strReplace As String = " modified"

可以回答这个问题。在 VB 中连接 Oracle 数据库 ，需要使用 Oracle 提供的 ODBC 驱动程序，具体步骤如下： 1. 在控制面板中找到“管理工具”，打开“ODBC 数据源管理器”。 2. 在“系统 DSN”选项卡中，点击“添加”按钮，选择“Oracle in OraClient11g_home1”（或者其他版本的 Oracle 驱动程序），点击“完成”。 3. 在弹出的“Oracle ODBC 配置”窗口中，填写 数据库 连接信息，包括 数据库 名称、用户名、密码等。 4. 在 VB 代码中，使用 ADODB.Connection 对象连接 Oracle 数据库 ，代码示例： Dim conn As New ADODB.Connection conn.ConnectionString = "Driver={Oracle in OraClient11g_home1};Server=ORCL;Uid=scott;Pwd=tiger;" conn.Open 其中，“ORCL”是 数据库 名称，“scott”和“tiger”是用户名和密码。 5. 连接成功后，可以使用 ADODB.Recordset 对象执行 SQL 查询语句，代码示例： Dim rs As New ADODB.Recordset rs.Open "SELECT * FROM emp", conn Do While Not rs.EOF Debug.Print rs("empno"), rs("ename"), rs("job") rs.MoveNext 以上就是在 VB 中连接 Oracle 数据库 的基本步骤和代码示例。

[Error] ADC.SchDoc Compiler Net NetU1_AD1_14 contains floating input pins (Pin U1_AD1-14) 19:27: 12618