Private
Sub searchmasa()
Dim objCon As
New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\ck\Downloads\Software\Green Tools\vb2005 code\sfmenu\sfmenu\sfmenu\db1.mdb;")
Dim objComm As
New OleDbCommand()
objComm.CommandText = "SELECT * FROM serial where (Masa like '" & TextBox4.Text &
" %' )"
' 這是一個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
裡
If tbl.Rows.Count <= 0
Then
MsgBox("No related data in database.", MsgBoxStyle.Information,
"Search Result")
DataGridView1.Visible = False
Else
DataGridView1.DataSource = tbl '之後ASSIGN DATAGRIDVIEW
的DATA SOURCE E.G.
用剛剛取來的DATA TABLE
Exit Sub
End If
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
Private
Sub DateTimePicker1_ValueChanged(ByVal sender
As System.Object, ByVal e
As System.EventArgs) Handles DateTimePicker1.ValueChanged
TextBox4.Text = DateTimePicker1.Text
End Sub
1.为什么数据库找不到相关的时间？在数据库里时间的数据类型(Data type)是"date/time",(format)格式是"Long Date".
textbox4.text=12-August-10
数据库serial表里的Masa(Field)=12-Aug-10（原本是12-August-10 10:19:21 AM，不过我用long date,所以只显示12-August-10.这样不可以吗？）
2.
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
Dim conn As New OleDbConnection _
("provider=microsoft.jet.oledb.4.0;data
source=c:\db1.mdb")
Dim tbl As New DataTable()
Dim myadapter As New OleDbDataAdapter("select * from serial", conn)
conn.Close()
myadapter.Fill(tbl)
ComboBox1.DataSource = tbl
ComboBox1.DisplayMember = "Application_Name"
ComboBox1.ValueMember = "Serial"
conn.Close()
Label7.Text = ComboBox1.SelectedValue
End Sub
为什么只能显示第一个combobox的数据？我选择其他数据，label7却没有变化?
3.
Dim objCon As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=Application.startuppath & "\db1.mdb;")
这样写对吗？
4.RadioButton1.Checked
= False '为什么还是会被选择？
