Private Sub BindData()
Dim myOleDbConnection As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & _dbFile & _
";Extended Properties=Excel 8.0;")
Dim myOleDbCommand As OleDbCommand = New OleDbCommand("SELECT * FROM [联系人$]", myOleDbConnection)
Dim myData As OledbDataAdapter = New OledbDataAdapter(myOleDbCommand)
myData.Fill(_address) myOleDbCommand.CommandText = "SELECT * FROM [客户$]"
myData.Fill(_customer) myOleDbCommand.CommandText = "SELECT * FROM [合作单位$]"
myData.Fill(_collaborator) dgMyData.DataSource = _address
dgMyData.Update() myOleDbCommand.Dispose()
myOleDbConnection.Dispose() End Sub
Dim myOleDbConnection As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & _dbFile & _
";Extended Properties=Excel 8.0;")
Dim myOleDbCommand As OleDbCommand = New OleDbCommand("SELECT * FROM [联系人$]", myOleDbConnection)
Dim myData As OledbDataAdapter = New OledbDataAdapter(myOleDbCommand)
myData.Fill(_address) myOleDbCommand.CommandText = "SELECT * FROM [客户$]"
myData.Fill(_customer) myOleDbCommand.CommandText = "SELECT * FROM [合作单位$]"
myData.Fill(_collaborator) dgMyData.DataSource = _address
dgMyData.Update() myOleDbCommand.Dispose()
myOleDbConnection.Dispose() End Sub
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货