VB.net做一个小程序 求教 75
请大神帮我看看问题出在哪里?另外我如果要加Button1点击执行结果输出在DataGridView1中应该怎么写?谢谢了,小白求教!~PrivateSubForm1_Lo...
请大神帮我看看问题出在哪里?另外我如果要加Button1点击执行结果输出在DataGridView1中 应该怎么写?谢谢了,小白求教!~ Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Dim oleDbConnection1 As OleDb.OleDbConnection Dim oledbDataAdapter As OleDb.OleDbDataAdapter Dim oledbData As DataSet = New DataSet Dim strConnect As String = "Provider= OraOLEDB.Oracle;Data Source=888;User ID=888;Password=888;" oleDbConnection1 = New System.Data.OleDb.OleDbConnection(strConnect) Dim strSql As String strSql = "select *" & " from xx" Dim oledbCommand As OleDb.OleDbCommand oledbCommand.CommandText = strSql oledbCommand.CommandType = CommandType.Text oledbCommand.Connection = oleDbConnection1 oledbDataAdapter.SelectCommand = oledbCommand oleDbConnection1.Open() oledbDataAdapter.Fill(oledbData, "gy_bingrenxx") oleDbConnection1.Close() End Sub
展开
1个回答
展开全部
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim oleDbConnection1 As OleDb.OleDbConnection
Dim oledbDataAdapter As OleDb.OleDbDataAdapter
Dim oledbData As DataSet = New DataSet
Dim strConnect As String = "Provider= OraOLEDB.Oracle;Data Source=888;User ID=888;Password=888;"
oleDbConnection1 = New System.Data.OleDb.OleDbConnection(strConnect)
Dim strSql As String
strSql = "select *" & " from xx"
Dim oledbCommand As OleDb.OleDbCommand
oledbCommand.CommandText = strSql
oledbCommand.CommandType = CommandType.Text
oledbCommand.Connection = oleDbConnection1
oledbDataAdapter.SelectCommand = oledbCommand
oleDbConnection1.Open()
oledbDataAdapter.Fill(oledbData, "gy_bingrenxx")
oleDbConnection1.Close()
'在窗体上添加一个DataGridView控件,在这个位置加一句代码
DataGridView1.DataSource = oledbDataAdapter.Tables("gy_bingrenxx")
End Sub
Dim oleDbConnection1 As OleDb.OleDbConnection
Dim oledbDataAdapter As OleDb.OleDbDataAdapter
Dim oledbData As DataSet = New DataSet
Dim strConnect As String = "Provider= OraOLEDB.Oracle;Data Source=888;User ID=888;Password=888;"
oleDbConnection1 = New System.Data.OleDb.OleDbConnection(strConnect)
Dim strSql As String
strSql = "select *" & " from xx"
Dim oledbCommand As OleDb.OleDbCommand
oledbCommand.CommandText = strSql
oledbCommand.CommandType = CommandType.Text
oledbCommand.Connection = oleDbConnection1
oledbDataAdapter.SelectCommand = oledbCommand
oleDbConnection1.Open()
oledbDataAdapter.Fill(oledbData, "gy_bingrenxx")
oleDbConnection1.Close()
'在窗体上添加一个DataGridView控件,在这个位置加一句代码
DataGridView1.DataSource = oledbDataAdapter.Tables("gy_bingrenxx")
End Sub
上海里艾
2024-10-22 广告
2024-10-22 广告
里艾传播,是基于受众洞察,整合多种营销方式,聚焦社交网络及搜索引擎,协助品牌和产品扩大其社会影响力的新形态传播公司。从品牌渠道招商、新品发布造势、电商节日大促等方面为合作品牌搭建一站式内容传播服务,从而满足品牌在不同阶段的营销需求,致力于成...
点击进入详情页
本回答由上海里艾提供
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |