0

データベースからデータを取得して、データ グリッド ビューのテーブルに表示しようとしています。見出しのあるテーブルが作成されていますが、値が入力されません。コードの一部は、最初に 2 つのテーブルを操作しようとしてコメント アウトされています。Visual Basic の基本的な知識を手伝っていただければ幸いです。

Public クラス DriverOption

Public Sub btnStaff_Click(sender As System.Object, e As System.EventArgs) Handles btnStaff.Click

    Dim objconnection As New OleDb.OleDbConnection("Provider=msdaora;Data Source=orabis;User Id=112221800;Password=112221800;")

    Dim objinvoicesDA As New OleDb.OleDbDataAdapter("select * from CUSORDER, CUSORDER ", objconnection)

    Dim objinvoicesCB As New OleDb.OleDbCommandBuilder(objinvoicesDA)

    Dim objdataset As New DataSet()


    Dim objordersdA As New OleDb.OleDbDataAdapter("select CUSORDER.ORDERID, CUSORDER.ORDERDATE, CUSORDER.STAFFID, CUSTOMER.CUSTOMERID,  CUSTOMER.CUSTOMERADD_1 FROM CUSORDER,CUSTOMER WHERE CUSORDER.CUSTOMERID = CUSTOMER.CUSTOMERID", objconnection)  'orderdetails.unitprice from orders , orderdetails where orders.orderid = orderdetails.orderid", objconnection)

    Dim objordersCB As New OleDb.OleDbCommandBuilder(objordersdA)

    'Dim objcustomersDA As New OleDb.OleDbDataAdapter("select * from CUSTOMER", objconnection)

    'Dim objcustomersCB As New OleDb.OleDbCommandBuilder(objcustomersDA)


    'Dim objproductsDA As New OleDb.OleDbDataAdapter("select * from Products", objconnection)

    'Dim objproductsCB As New OleDb.OleDbCommandBuilder(objproductsDA)


    'Public Sub retrieve()
    'objdataset.Clear()

    'objproductsDA.FillSchema(objdataset, SchemaType.Source, "Products")


    'objproductsDA.Fill(objdataset, "Products")


    'objcustomersDA.FillSchema(objdataset, SchemaType.Source, "CUSTOMER")


    'objcustomersDA.Fill(objdataset, "CUSTOMER")
    objordersdA.FillSchema(objdataset, SchemaType.Source, "CUSTOMER")


    objordersdA.Fill(objdataset, "CUSTOMER")

    objordersdA.FillSchema(objdataset, SchemaType.Source, "CUSORDER")


    objordersdA.Fill(objdataset, "CUSORDER")


    'objinvoicesDA.FillSchema(objdataset, SchemaType.Source, "invoices")


    'objinvoicesDA.Fill(objdataset, "invoices")


    ViewDeliverys.DataGridView1.DataSource = objdataset.Tables("CUSORDER")
4

1 に答える 1

0

エラーが発生しましたか？
コードをデバッグして、データセットにデータを入力したかどうか、どこに問題があるかを確認しましたか?
このクエリがわかりません Dim objinvoicesDA ...("select * from CUSORDER, CUSORDER ", objconnection) : この "CUSORDER, CUSORDER " このタイプのクエリは存在しますか?

于 2013-03-08T11:28:05.753 に答える