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 | 1993 | |||
12-11 | 1459 | |||
53 | 03-15 | 1215 | ||
52 | 01-31 | 1377 | ||
51 | 01-31 | 1233 | ||
50 | 01-31 | 1067 | ||
49 | 01-19 | 1376 | ||
48 | 01-11 | 1211 | ||
47 | 01-03 | 1709 | ||
46 | 12-27 | 1993 | ||
45 | 12-19 | 1478 | ||
44 | 12-14 | 1445 | ||
43 | 12-11 | 1459 | ||
42 | 12-09 | 1174 | ||
41 | 12-01 | 1377 | ||
40 | 12-01 | 1534 | ||
39 | 12-01 | 1035 |
댓글 없음:
댓글 쓰기