Evo @101kerber prouci ovaj primjer koji fino radi. U referencama ukljuci Microsoft ActiveX data object 2.5 library, stavi jedan textBox i dugmice koji se koriste u kodu.
Code:
Option Explicit
Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim Konekcija As String
Dim SQLupit As String
Private Sub cmdObrisi_Click()
If MsgBox("Da li stvarno zelite obrisati? ", vbInformation + vbYesNo, "Brisanje") = vbYes Then
rs.Delete
rs.MoveNext
End If
End Sub
Private Sub cmdSvi_Click()
SQLupit = "select*from proba"
Call NoviUpit
End Sub
Private Sub cmdUradi_Click()
SQLupit = txtSQL
Call NoviUpit
End Sub
Private Sub Form_Load()
Set cnn = New ADODB.Connection
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
Konekcija = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Persist Security Info=False"
cnn.Open Konekcija
rs.Open "select*from Proba", cnn, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = rs
End Sub
Public Sub NoviUpit()
rs.Close
Set rs = Nothing
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open SQLupit, cnn, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = rs
End Sub
@rgdrajko ovo sto si napisao nema veze sa problemom @101kerber. Ne vjerujem da ne znas, a cudi me sto neces da pomognes.
SELECT * FROM หน่วยงานหลัก WHERE ยสันติ LIKE 'โดย%'