Click here to Skip to main content
11,702,130 members (62,063 online)
Rate this: bad
good
Please Sign up or sign in to vote.
See more: VB8.0
Public Function ExecuteQuery(ByVal Query As String) As DataTable
        If Not openconn() Then
            MsgBox("Koneksi gagal...!", MsgBoxStyle.Critical, "Access Failed")
            Return Nothing
            Exit Function
        End If
        Cmd = New OleDb.OleDbCommand(Query, Cn)
        Da = New OleDb.OleDbDataAdapter
        Da.SelectCommand = Cmd
        Ds = New Data.DataSet
        Da.Fill (Ds)
        Dt = Ds.Tables(0)
        Return Dt
        Dt = Nothing
        Ds = Nothing
        Da = Nothing
        Cmd = Nothing
        closeconn()
    End Function

Note : Da.fill (Ds)
Dt=Ds.Tables(0)
Posted 24-Sep-11 4:36am
Edited 24-Sep-11 5:25am
(no name)285K
v2
Comments
Mehdi Gholam at 24-Sep-11 11:26am
   
Obviously from the error the table does not exist, check your connection and table names.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

  Print Answers RSS
0 Maciej Los 395
1 Sergey Alexandrovich Kryukov 355
2 OriginalGriff 314
3 CHill60 145
4 Mika Wendelius 119
0 OriginalGriff 8,344
1 Sergey Alexandrovich Kryukov 7,507
2 CPallini 4,922
3 Maciej Los 4,371
4 Mika Wendelius 3,556


Advertise | Privacy | Mobile
Web04 | 2.8.150819.1 | Last Updated 24 Sep 2011
Copyright © CodeProject, 1999-2015
All Rights Reserved. Terms of Service
Layout: fixed | fluid

CodeProject, 503-250 Ferrand Drive Toronto Ontario, M3C 3G8 Canada +1 416-849-8900 x 100