0
이것은 구문을 모른다는 부분입니다. 내 양식에서 데이터베이스 의 데이터를 자동으로로드하려면 b_date를 사용하지만 월에 일치하는 레코드 만 표시하면됩니다. 올해를 사용하지 않는 날짜 이 프로그램은 사용자가 날짜와 월을 지정 곳에날짜에 따른 올바른 구문
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'Bene_dbDataSet.bene_records' table. You can move, or remove it, as needed.
Me.Bene_recordsTableAdapter.Fill(Me.Bene_dbDataSet.bene_records)
con = New OleDb.OleDbConnection
dbProvider = "Provider=Microsoft.Jet.OLEDB.4.0;"
dbSource = "Data Source = C:\Users\RedemptorisMater\Desktop\S\K\WindowsApplication1\WindowsApplication1\bene_db.mdb"
con.ConnectionString = dbProvider & dbSource
If Not con.State = ConnectionState.Open Then
con.Open()
End If
Dim da As OleDb.OleDbDataAdapter
Dim Sql As String
Sql = "SELECT * FROM bene_records"
da = New OleDb.OleDbDataAdapter(Sql, con)
Dim dt As New DataTable
da.Fill(dt)
con.Close()
My.Computer.Audio.Play("C:\Users\R\Desktop\S\Kenton\WindowsApplication1\WindowsApplication1\bday1.wav",
AudioPlayMode.Background)
End Sub