17,086
社区成员
发帖
与我相关
我的任务
分享
create table t(a long);
insert into t select 1 from dual;
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim adocn As System.Data.OracleClient.OracleConnection
Dim adocmd As System.Data.OracleClient.OracleCommand
Dim adoada As System.Data.OracleClient.OracleDataAdapter
Dim dt As System.Data.DataTable
adocn = New System.Data.OracleClient.OracleConnection()
adocmd = New System.Data.OracleClient.OracleCommand()
adoada = New System.Data.OracleClient.OracleDataAdapter()
dt = New System.Data.DataTable()
adocn.ConnectionString = "Data Source=xsjly;User Id=jly;Password=jly;"
adocn.Open()
adocmd.Connection = adocn
adocmd.CommandType = CommandType.Text
adocmd.CommandText = "select * from t"
adoada.SelectCommand = adocmd
adoada.Fill(dt)
Me.DataGridView1.DataSource = dt
adocn.Close()
End Sub