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 |
댓글 없음:
댓글 쓰기