^.^v

Namespace DataLayerClasses
Public Class ClsData

Public Shared cn As SqlConnection ''''untuk connect database
Public Shared cn2 As SqlConnection ''''untuk connect database
Public Shared da As SqlDataAdapter ''''untuk mengambil data
Public Shared ds As DataSet ''''untuk menampung data
Public Shared dt As DataTable ''''untuk menampung data
Public Shared cmd As SqlCommand ''''untuk melempar query
Public Shared cmd2 As SqlCommand ''''untuk melempar query
Public Shared trx As SqlTransaction ''''untuk save / undo perintah SQL

''' Ambil koneksi string dari webconfig
Public Shared Function GetKoneksi() As String
Return System.Configuration.ConfigurationManager.ConnectionStrings("conn").ConnectionString
End Function

''' <summary>
''' init obyek (gak kepake)
''' </summary>
''' <remarks></remarks>
Public Sub New()
''''init objects
''cn = New SqlConnection("initial catalog=....")
cn = New SqlConnection()
da = New SqlDataAdapter("", "")
ds = New DataSet()
cmd = New SqlCommand()
cmd2 = New SqlCommand()
''''set connection
GetKoneksi()
End Sub

''' <summary>
''' get data menggunakan data set
''' </summary>
''' <param name="SQLQuery">query</param>
''' <returns></returns>
''' <remarks></remarks>
Public Shared Function getData(ByVal SQLQuery As String) As DataSet

Dim StrDbCon As String = GetKoneksi() ''''untuk connect database
cn = New SqlConnection(StrDbCon) ''''untuk connect database
cmd = New SqlCommand(SQLQuery, cn) ''''untuk mengambil data
da = New SqlDataAdapter(cmd) ''''untuk melempar query
ds = New DataSet ''''untuk menampung data
dt = New DataTable
'Try
da.Fill(ds)
' Catch ex As Exception
'MsgBox(ex.Message)
'End Try
Return ds

End Function


End Class

End Namespace

 
Dim rs As DataSet
Dim dt As New DataTable()

Dim kue As String = "Select * from NAMA_TABLE"
rs = DataLayerClasses.ClsData.getData(kue)

If rs.Tables(0).Rows.Count > 0 Then
Msgbox("Data di temukan")
Else
Msgbox("Data tidak di temukan")
End If