.NET
をテンプレートにして作成
[
トップ
] [
新規
|
一覧
|
単語検索
|
最終更新
|
ヘルプ
]
開始行:
*MySQLでADO.NET覚書 [#g9d5a6ce]
mysql-connector-net-6.9.6.msi
mysql-for-visualstudio-1.2.3.msi
をそれぞれインストールする
MySQLサーバーの文字セットはutf8で
Imports MySql.Data.MySqlClient
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventAr...
Using connection As New MySqlConnection(My.Settin...
Dim command As MySqlCommand = connection.CreateCo...
Dim dr As MySqlDataReader
connection.Open()
command.CommandText = "SELECT * FROM tbl_test"
dr = command.ExecuteReader()
Do While dr.Read
cmbManager.Items.Add(dr("id_name"))
Loop
dr.Close()
connection.Close()
End Using
End Sub
End Class
Public ProjectReportSql As String 'レポートのソースと...
Private Sub frmProjectPreview_Load(sender As Object, ...
'受け取ったSQLステートメントでデータアダプターを...
Dim da As New MySqlDataAdapter(ProjectReportSql, ...
'データテーブルにデータアダプターを介してデータを...
da.Fill(Me.project_jobDataSet.vw_projectlist)
'レポートを表示する
Me.ReportViewer1.RefreshReport()
End Sub
終了行:
*MySQLでADO.NET覚書 [#g9d5a6ce]
mysql-connector-net-6.9.6.msi
mysql-for-visualstudio-1.2.3.msi
をそれぞれインストールする
MySQLサーバーの文字セットはutf8で
Imports MySql.Data.MySqlClient
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventAr...
Using connection As New MySqlConnection(My.Settin...
Dim command As MySqlCommand = connection.CreateCo...
Dim dr As MySqlDataReader
connection.Open()
command.CommandText = "SELECT * FROM tbl_test"
dr = command.ExecuteReader()
Do While dr.Read
cmbManager.Items.Add(dr("id_name"))
Loop
dr.Close()
connection.Close()
End Using
End Sub
End Class
Public ProjectReportSql As String 'レポートのソースと...
Private Sub frmProjectPreview_Load(sender As Object, ...
'受け取ったSQLステートメントでデータアダプターを...
Dim da As New MySqlDataAdapter(ProjectReportSql, ...
'データテーブルにデータアダプターを介してデータを...
da.Fill(Me.project_jobDataSet.vw_projectlist)
'レポートを表示する
Me.ReportViewer1.RefreshReport()
End Sub
ページ名:
![[PukiWiki]](image/z_logo.gif "[PukiWiki]"){kind=logo}
