VB11维护的物料替代,查询对应关系后台表

 物料替代 KONDD     KOTD001合同物料和生产物料

KONDDP多行替代的 

 

可以按照以下步骤来实现: 1. 创建一个Windows窗体应用程序,添加一个Button和一个DataGridView控件。 2. 在窗体的Load事件中,连接到数据库并向DataGridView控件中加载中的数据。 3. 在Button的Click事件中,获取用户输入的查询条件,并使用SQL查询语句查询中符合条件的数据。 4. 将查询结果绑定到DataGridView控件中。 下面是一个简单的示例代码: ```vb Public Class Form1 Dim connString As String = "Data Source=(local);Initial Catalog=DatabaseName;Integrated Security=True" Dim conn As New SqlConnection(connString) Dim cmd As New SqlCommand() Dim da As New SqlDataAdapter() Dim ds As New DataSet() Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load '连接数据库,加载数据到DataGridView控件 conn.Open() cmd.Connection = conn cmd.CommandText = "SELECT * FROM TableName" da.SelectCommand = cmd da.Fill(ds, "TableName") DataGridView1.DataSource = ds.Tables("TableName") conn.Close() End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click '执行查询操作 conn.Open() cmd.CommandText = "SELECT * FROM TableName WHERE ColumnName='" & TextBox1.Text & "'" da.SelectCommand = cmd ds.Clear() da.Fill(ds, "TableName") DataGridView1.DataSource = ds.Tables("TableName") conn.Close() End Sub End Class ``` 在上面的代码中,需要将`DatabaseName`替换为实际的数据库名称,`TableName`替换为实际的名,`ColumnName`替换为实际的列名。同时,需要将TextBox1替换为实际的输入框控件名称。
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值