十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
给你写个例子,不明白,再问!!
站在用户的角度思考问题,与客户深入沟通,找到东城网站设计与东城网站推广的解决方案,凭借多年的经验,让设计与互联网技术结合,创造个性化、用户体验好的作品,建站类型包括:做网站、成都网站建设、企业官网、英文网站、手机端网站、网站推广、主机域名、虚拟主机、企业邮箱。业务覆盖东城地区。
'引入OLEDB命令空间
Imports System.Data.OleDb
Public Class Form1
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
'定义一个OLEDB连接并实例化它
Dim con As New OleDbConnection
'定义一个OLEDB命令并实例化他
Dim cmd As New OleDbCommand
'定义一个OLEDBReader方法来读取数据库
Dim dr As OleDbDataReader
'初始化con的连接属性,使用OLEDB模式,数据源为:你指定下路径,我的是在D盘
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\dataSample.mdb"
'打开OLEDB数据连接
con.Open()
'初始化OLEDB命令的连接属性为con,这个需要你理解下
cmd.Connection = con
'初始化OLEDB命令的语句 就是查询 什么字段从什么表 条件是ID等于你在t1中输入的内容
cmd.CommandText = "select keyss from table1 where ID=" t1.Text ""
'执行OLEDB命令以ExecuteReader()方式,并返回一个OLEDBReader,赋值给dr
dr = cmd.ExecuteReader()
'判断下dr中是否有数据。如果有就把第一个值赋值给t2的值
If dr.Read() Then
t2.Text = dr(0)
End If
'完成后关闭dr.con等释放资源
dr.Close()
con.Close()
End Sub
End Class
步骤如下:
窗体上添加2个列表框,一个按钮:
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim MyDir As String = "C:\123"
'搜索并显示子文件夹
ListBox1.Items.Clear()
For Each MySubDir As String In System.IO.Directory.GetDirectories(MyDir)
ListBox1.Items.Add(MySubDir)
Next
'搜索并显示文件
ListBox2.Items.Clear()
For Each MyFile As String In System.IO.Directory.GetFiles(MyDir)
ListBox2.Items.Add(MyFile)
Next
End Sub
End Class
string sql = "select * from 表";
SqlDataAdapter sqladapter = new SqlDataAdapter(sql, con);
DataSet ds = new DataSet();
sqladapter.Fill(ds, "表");
GridView1.DataSource = ds;
GridView1.DataBind();
Dim strSQL1 = "select id from userlist where password=1234"
Cmd.CommandText = strSQL1
dim MyReader As SqlDataReader = Cmd.ExecuteReader
If MyReader.HasRows Then
While MyReader.Read
TextBox1.Text=MyReader("ID")
End While
End If
MyReader.Close()
不详细写了,给个思路吧。
通过DataTable的方式绑定DataGridView,然后模糊查询也是操作DataTable,将查询的结果放到另外一个Datatable里,然后ListView绑定这个新的Datatable.
剩下的你自己网上找的,很多。
你这个程序两个问题
不显示数据的原因,TextBox1.DataBindings.Add("Text", mydataset, "WorkTime"),第二个参数不能是dataset应该是datatable,所以应该写成TextBox1.DataBindings.Add("Text", mydataset.Tables("WorkTime"), "WorkTime")
myconn.Open()的打开与关闭没必要再写了