重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
先用ADO.NET读取数据,然后赋值即可,这个很容易的,
成都创新互联公司主要从事网站制作、成都做网站、网页设计、企业做网站、公司建网站等业务。立足成都服务新河,十载网站建设经验,价格优惠、服务专业,欢迎来电咨询建站服务:028-86922220
如果你要和某个控件的值做比对,就可以先赋值给控件,然后做比对。。。
例如,你读取数据库中的一条记录,然后绑定到textbox上,和另外一个textbox里面的数字比较大小。。。。
假如b窗体是form2,在a窗体中调用B窗体,直接dim frm as new form2,然后frm.show()就OK
Imports System.Data.OleDb
Public Class Form1
Dim objComm As New OleDbCommand()
Dim adapter As New OleDbDataAdapter(objComm)
Dim tbl As New DataTable
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim objCon As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\db2.mdb;")
Dim objComm As New OleDbCommand()
objComm.CommandText = "SELECT * FROM staff" ' 这是一个QUERY STRING 来选取资料的
objComm.Connection = objCon
Dim adapter As New OleDbDataAdapter(objComm) '选取资料后可以用OleDbDataAdapter 把资料存到DATATABLE 里
Dim tbl As New DataTable ' 用来存资料, 等一会可以显示到DATAGRIDVIEW中
Try
objCon.Open() ' 开启 ACCESS CONNECTION
adapter.Fill(tbl) ' 把资料存到DATATABLE 里
DataGridView1.DataSource = tbl '之后 ASSIGN DATAGRIDVIEW 的DATA SOURCE E.G. 用刚刚取来的DATA TABLE
Catch ex As Exception
MsgBox(ex.Message) '有问题ERROR 时 POP UP ERROR MESSAGE BOX
Finally
adapter = Nothing '清理 data adapter object
objComm = Nothing '清理 command object
objCon.Close() '关掉连线
objCon = Nothing '清理 connection object
End Try
End Sub
1、首先打开Visual Studio 2008代码窗口,添加引用。
2、输入以下代码:Public conn1 As SqlConnection = New SqlConnection 。
3、声明关键字 Public;(因为是全局变量,所以用Public 来声明)。
4、如果SQL 数据库就在本机,则用以下代码连接。
5、如果代码太长,影响可读性,可以用空格加"_"后,回车换行即可。
VB的数据库操作,我们都知道在Where子句中对于字符串类型,用单引号
注意:凡是日期、时间类型,用井号,也就是 #
所以,你的这个用
select * from 表名 where cdate(起始时间) between #" + CDate(txtStart.Text) + "# and #" + CDate(txtOver.Text) + “#“