'************************************************************************************************************'
'******************************** 填写DataGrid的数据的函数 *******************************************'
'************************************************************************************************************'
Private Sub CreateNewDataRow()
'利用函数MakeNamesTable生成表
Dim getSQLTable As DataTable
getSQLTable = MakeItemTable()
Dim selectSQL = "Select * from itmas"
'********************************************************************************************************'
'********************************** 获取ODBC MYSQL连接 **********************************'
'********************************************************************************************************'
Dim myConnection As New OdbcConnection(MySQLConnect.ConnectionString)
Dim myCommand As New OdbcCommand(selectSQL, myConnection)
Dim custDA As OdbcDataAdapter = New OdbcDataAdapter(selectSQL, myConnection)
myConnection.Open()
Dim myReader As OdbcDataReader
Dim myUpdate As OdbcDataAdapter
'********************************************************************************************************'
'********************************** 获取ODBC MYSQL数据 **********************************'
'********************************************************************************************************'
myReader = myCommand.ExecuteReader()
While myReader.Read()
'向已经生成的表里面增加记录
Dim getSQLRow As DataRow
getSQLRow = getSQLTable.NewRow()
'增加记录
getSQLRow("物料代号") = myReader.GetValue(1)
getSQLRow("物料描述") = myReader.GetValue(2)
getSQLRow("物料单价") = myReader.GetValue(3)
getSQLRow("物料单位") = myReader.GetValue(4)
getSQLRow("安全库存") = myReader.GetValue(6)
getSQLTable.Rows.Add(getSQLRow)
End While
'********************************************************************************************************'
'********************************** 关闭ODBC MYSQL连接 **********************************'
'********************************************************************************************************'
myReader.Close()
myConnection.Close()
Dim dc As DataColumn
For Each dc In getSQLTable.Columns
Console.WriteLine(dc.ColumnName)
Next
Me.DateShow.DataSource = getSQLTable
Me.DateShow.ReadOnly = True
End Sub
'************************************************************************************************************'
'************************************ 建立表单的主函数 ***********************************************'
'************************************************************************************************************'
Private Function MakeItemTable() As DataTable
'建立一个新的表
Dim ItemTable As DataTable = New DataTable("")
'增加表里面的列
Dim idColumn As DataColumn = New DataColumn
idColumn.DataType = System.Type.GetType("System.Int32")
idColumn.ColumnName = "序号"
idColumn.AutoIncrement = True
ItemTable.Columns.Add(idColumn)
Dim itemCodeColumn As DataColumn = New DataColumn
itemCodeColumn.DataType = System.Type.GetType("System.String")
itemCodeColumn.ColumnName = "物料代号"
itemCodeColumn.DefaultValue = "Fname"
ItemTable.Columns.Add(itemCodeColumn)
Dim itemDescColumn As DataColumn = New DataColumn
itemDescColumn.DataType = System.Type.GetType("System.String")
itemDescColumn.ColumnName = "物料描述"
ItemTable.Columns.Add(itemDescColumn)
Dim priceColumn As DataColumn = New DataColumn
priceColumn.DataType = System.Type.GetType("System.String")
priceColumn.ColumnName = "物料单价"
ItemTable.Columns.Add(priceColumn)
Dim unitColumn As DataColumn = New DataColumn
unitColumn.DataType = System.Type.GetType("System.String")
unitColumn.ColumnName = "物料单位"
ItemTable.Columns.Add(unitColumn)
Dim safeBalColumn As DataColumn = New DataColumn
safeBalColumn.DataType = System.Type.GetType("System.String")
safeBalColumn.ColumnName = "安全库存"
ItemTable.Columns.Add(safeBalColumn)
'创建关键字
Dim keys(0) As DataColumn
keys(0) = idColumn
ItemTable.PrimaryKey = keys
'返回刚刚建立好的表
MakeItemTable = ItemTable
End Function