Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim mydeptno, mydname As String
Dim connectStr As String = "User Id=scott;Password=tiger;Data Source=Ora92"
Dim con As New OracleConnection(connectStr)
Dim objAdapter As OracleDataAdapter = New OracleDataAdapter()
objAdapter.SelectCommand = New OracleCommand("Select * from emp", con)
Dim objDataSet As DataSet = New DataSet("objDataSet")
objAdapter.Fill(objDataSet, "Emp")
Me.myDataGrid.SetDataBinding(objDataSet, "EMP")
con.Close()
con.Dispose()
End Sub
Dim mydeptno, mydname As String
Dim connectStr As String = "User Id=scott;Password=tiger;Data Source=Ora92"
Dim con As New OracleConnection(connectStr)
Dim objAdapter As OracleDataAdapter = New OracleDataAdapter()
objAdapter.SelectCommand = New OracleCommand("Select * from emp", con)
Dim objDataSet As DataSet = New DataSet("objDataSet")
objAdapter.Fill(objDataSet, "Emp")
Me.myDataGrid.SetDataBinding(objDataSet, "EMP")
con.Close()
con.Dispose()
End Sub
| 12-27 | 2163 | |||
| 12-11 | 1562 | |||
| 53 | 03-15 | 1351 | ||
| 52 | 01-31 | 1468 | ||
| 51 | 01-31 | 1543 | ||
| 50 | 01-31 | 1172 | ||
| 49 | 01-19 | 1474 | ||
| 48 | 01-11 | 1298 | ||
| 47 | 01-03 | 1803 | ||
| 46 | 12-27 | 2163 | ||
| 45 | 12-19 | 1564 | ||
| 44 | 12-14 | 1543 | ||
| 43 | 12-11 | 1562 | ||
| 42 | 12-09 | 1251 | ||
| 41 | 12-01 | 1473 | ||
| 40 | 12-01 | 1609 | ||
| 39 | 12-01 | 1121 | ||
댓글 없음:
댓글 쓰기