Aku dilanda kebodohan dan kemalasan nak cari

i212

nak tanya sket... sapa leh bagi komen.. apa aku perlu buat..
ADO.net? or ODBC? or OLEDB?

1. Imports System.Data.OleDb
   
2. 
   
3. 
   
4. Public Class DB_Class
   
5.     Public tempDB As OleDbConnection
   
6. 
   
7.     Public Sub New()
   
8.         tempDB = New OleDbConnection(GetDatabaseName)
   
9.     End Sub
   
10. 
    
11.     Public Sub New(ByRef tDB As OleDbConnection, ByVal sDatabasePath As String)
    
12.         tDB = New OleDbConnection(sDatabasePath)
    
13.     End Sub
    
14. 
    
15.     'Get Database Path/DSN
    
16.     Private Function GetDatabaseName() As String
    
17.         Return "C:\eReloadAdmin\Database\my_db.mdb"
    
18.     End Function
    
19. 
    
20.     'Run query
    
21.     Public Function RunQuery(ByVal sSqlString As String) As Boolean
    
22.         Try
    
23.             'Sangkut la pulok
    
24.         Catch ex As Exception
    
25. 
    
26.         End Try
    
27.     End Function
    
28. 
    
29.     'Get Recordset
    
30.     Public Function RunRecordset(ByVal sSqlString As String) As Boolean
    
31.         Try
    
32.             'Sangkut la pulok
    
33.         Catch ex As Exception
    
34. 
    
35.         End Try
    
36.     End Function
    
37. 
    
38. 
    
39. End Class

Copy the Code

i212

FYI... aku baru dalam .NET... sblum nih vb6 je.. hheehhehe

i212

1. 
   
2. Imports System.Data.OleDb
   
3. 
   
4. 
   
5. Public Class DB_Class
   
6.     Public tempDB As OleDbConnection
   
7.     Private oleCommand As OleDbCommand
   
8. 
   
9.     Public Sub New()
   
10.         tempDB = New OleDbConnection(GetDatabaseName)
    
11.     End Sub
    
12. 
    
13.     Public Sub New(ByRef tDB As OleDbConnection, ByVal sDatabasePath As String)
    
14.         tDB = New OleDbConnection(sDatabasePath)
    
15.     End Sub
    
16. 
    
17.     Public Sub CloseConnection()
    
18.         If tempDB.State <> ConnectionState.Closed Then
    
19.             tempDB.Close()
    
20.             tempDB.Dispose()
    
21.         End If
    
22.         
    
23.     End Sub
    
24. 
    
25.     Public Sub CloseConnection(ByRef tDb As OleDbConnection)
    
26.         If tDb.State <> ConnectionState.Closed Then
    
27.             tDb.Close()
    
28.             tDb.Dispose()
    
29.         End If
    
30.     End Sub
    
31. 
    
32.     'Get Database Path/DSN
    
33.     Private Function GetDatabaseName() As String
    
34.         Return "C:\eReloadAdmin\Database\my_db.mdb"
    
35.     End Function
    
36. 
    
37.     'Run query
    
38.     Public Function RunQuery(ByVal sSqlString As String) As Boolean
    
39.         Try
    
40.             Dim iResult As Integer
    
41.             oleCommand = New OleDbCommand(sSqlString, tempDB)
    
42.             iResult = oleCommand.ExecuteNonQuery()
    
43.             oleCommand.Dispose()
    
44.             oleCommand = Nothing
    
45.             If iResult > 0 Then
    
46.                 Return True
    
47.             Else
    
48.                 Return False
    
49.             End If
    
50.         Catch ex As Exception
    
51.             Return False
    
52.         End Try
    
53.     End Function
    
54. 
    
55.     Public Function RunQuery(ByVal sSqlString As String, ByRef tDB As OleDbConnection) As Boolean
    
56.         Try
    
57.             Dim iResult As Integer
    
58.             oleCommand = New OleDbCommand(sSqlString, tDB)
    
59.             iResult = oleCommand.ExecuteNonQuery()
    
60.             oleCommand.Dispose()
    
61.             oleCommand = Nothing
    
62.             If iResult > 0 Then
    
63.                 Return True
    
64.             Else
    
65.                 Return False
    
66.             End If
    
67.         Catch ex As Exception
    
68.             Return False
    
69.         End Try
    
70.     End Function
    
71. 
    
72.     'Get Recordset
    
73.     Public Function RunRecordset(ByVal sSqlString As String, ByRef DataReader As OleDbDataReader) As Boolean
    
74.         Try
    
75.             oleCommand = New OleDbCommand(sSqlString, tempDB)
    
76.             DataReader = oleCommand.ExecuteReader()
    
77.             oleCommand.Dispose()
    
78.             oleCommand = Nothing
    
79.             Return True
    
80.         Catch ex As Exception
    
81.             Return False
    
82.         End Try
    
83.     End Function
    
84. 
    
85.     Public Function RunRecordset(ByVal sSqlString As String, ByRef DataReader As OleDbDataReader, ByRef tdb As OleDbConnection) As Boolean
    
86.         Try
    
87.             oleCommand = New OleDbCommand(sSqlString, tdb)
    
88.             DataReader = oleCommand.ExecuteReader()
    
89.             oleCommand.Dispose()
    
90.             oleCommand = Nothing
    
91.             Return True
    
92.         Catch ex As Exception
    
93.             Return False
    
94.         End Try
    
95.     End Function
    
96. End Class
    
97. 
    

Copy the Code

BorderManager

kalau dh ada sikap kebodohan & malas mencari... hulur je $$$ pasti ada yg tolong buatkan

i212

Tak dak feel la kalu gitu... hahahahahah..

nih yang dah jalan...

apa pendapat ko.. ok ka?

1. 
   
2. Imports System.Data.OleDb
   
3. 
   
4. 
   
5. Public Class DB_Class
   
6.     Public tempDB As OleDbConnection
   
7.     Private oleCommand As OleDbCommand
   
8. 
   
9.     Public Sub New()
   
10.         Dim sConnection As String
    
11.         sConnection = GetDatabaseName()
    
12.         sConnection = CreateConnectionString(sConnection)
    
13.         tempDB = New OleDbConnection(sConnection)
    
14.         tempDB.Open()
    
15. 
    
16.     End Sub
    
17. 
    
18.     Public Sub New(ByRef tDB As OleDbConnection, ByVal sDatabasePath As String)
    
19.         Dim sConnection As String
    
20.         sConnection = CreateConnectionString(sDatabasePath)
    
21.         tDB = New OleDbConnection(sConnection)
    
22.     End Sub
    
23. 
    
24.     Private Function CreateConnectionString(ByVal sDatabasePath As String) As String
    
25.         Return "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sDatabasePath & ";User Id=;Password=;"
    
26.     End Function
    
27. 
    
28.     Public Sub CloseConnection()
    
29.         If tempDB.State <> ConnectionState.Closed Then
    
30.             tempDB.Close()
    
31.             tempDB.Dispose()
    
32.         End If
    
33.         
    
34.     End Sub
    
35. 
    
36.     Public Sub CloseConnection(ByRef tDb As OleDbConnection)
    
37.         If tDb.State <> ConnectionState.Closed Then
    
38.             tDb.Close()
    
39.             tDb.Dispose()
    
40.         End If
    
41.     End Sub
    
42. 
    
43.     'Get Database Path/DSN
    
44.     Private Function GetDatabaseName() As String
    
45.         Return "C:\eReloadAdmin\Database\my_db.mdb"
    
46.     End Function
    
47. 
    
48.     'Run query
    
49.     Public Function RunQuery(ByVal sSqlString As String) As Boolean
    
50.         Try
    
51.             Dim iResult As Integer
    
52.             oleCommand = New OleDbCommand(sSqlString, tempDB)
    
53.             iResult = oleCommand.ExecuteNonQuery()
    
54.             oleCommand.Dispose()
    
55.             oleCommand = Nothing
    
56.             If iResult > 0 Then
    
57.                 Return True
    
58.             Else
    
59.                 Return False
    
60.             End If
    
61.         Catch ex As Exception
    
62.             Return False
    
63.         End Try
    
64.     End Function
    
65. 
    
66.     Public Function RunQuery(ByVal sSqlString As String, ByRef tDB As OleDbConnection) As Boolean
    
67.         Try
    
68.             Dim iResult As Integer
    
69.             oleCommand = New OleDbCommand(sSqlString, tDB)
    
70.             iResult = oleCommand.ExecuteNonQuery()
    
71.             oleCommand.Dispose()
    
72.             oleCommand = Nothing
    
73.             If iResult > 0 Then
    
74.                 Return True
    
75.             Else
    
76.                 Return False
    
77.             End If
    
78.         Catch ex As Exception
    
79.             Return False
    
80.         End Try
    
81.     End Function
    
82. 
    
83.     'Get Recordset
    
84.     Public Function RunRecordset(ByVal sSqlString As String, ByRef DataReader As OleDbDataReader) As Boolean
    
85.         Try
    
86.             oleCommand = New OleDbCommand(sSqlString, tempDB)
    
87.             DataReader = oleCommand.ExecuteReader()
    
88.             oleCommand.Dispose()
    
89.             oleCommand = Nothing
    
90.             If DataReader.HasRows Then
    
91.                 Return True
    
92.             Else
    
93.                 Return False
    
94.             End If
    
95.         Catch ex As Exception
    
96.             Return False
    
97.         End Try
    
98.     End Function
    
99. 
    
100.     Public Function RunRecordset(ByVal sSqlString As String, ByRef DataReader As OleDbDataReader, ByRef tdb As OleDbConnection) As Boolean
     
101.         Try
     
102.             oleCommand = New OleDbCommand(sSqlString, tdb)
     
103.             DataReader = oleCommand.ExecuteReader()
     
104.             oleCommand.Dispose()
     
105.             oleCommand = Nothing
     
106.             Return True
     
107.         Catch ex As Exception
     
108.             Return False
     
109.         End Try
     
110.     End Function
     
111. End Class
     
112. 
     

Copy the Code

BorderManager

sory dah 5 tahun tak buka .NET takleh comment

i212

heheheheh...
skarang ko develop guna apo?

BorderManager

PHP je....programming for fun only

i212

ooooo....
aku skarang dok menggodek .net...
php boleh la sesikit... heheheh

mizz_aurora

saye xske ASP.Net.....................
PHP lg ok kot rasenye..

alien3d

Bukan main drag and drop ke vb?Kata RAD tools

naikAntena

cantik dah nihh.... pas nih function lehh ahh kasi public sharedd ... medium tier nya... br ada businessss logicc baru cenanggg pas nih....