Ok, hvala "goranvuc" proba sam i to radi bez problema..
...postoji jos jedna stvar koju bih htio uciniti ali ne znam kako...
... zelio bih izvuci naziv i broj od svih recorda(0..N) kojima je "Ne_uzmi" polje postavljeno na "No"...
To sam pokusao sa sljedecim kodom, naravno nije mi uspijelo jer inace ne bih pitao:
Code:
Private Sub cmdGenerirajDatoteku_Click()
Dim mFileSysObj As New FileSystemObject ' General declaration
Dim mFile As File ' General declaration
Dim mTxtStream As TextStream ' General declaration
Dim broj As String
Dim naziv As String
Dim rezultat As ADODB.Recordset
Set rezultat = New ADODB.Recordset
Dim adoCom As New ADODB.Command
adoCom.ActiveConnection = Adodc1.ConnectionString
'http://msdn2.microsoft.com/en-us/library/ms681504(VS.85).aspx
CommonDialog1.ShowSave
' Create and Get the file
mFileSysObj.CreateTextFile (CommonDialog1.FileName)
Set mFile = mFileSysObj.GetFile(CommonDialog1.FileName)
' Open a text stream for reading from a file
Set mTxtStream = mFile.OpenAsTextStream(ForWriting)
adoCom.CommandText = "SELECT Naziv, Broj AS naziv, broj FROM svi_brojevi WHERE svi_brojevi.Ne_uzmi=No"
MsgBox adoCom.CommandText
Set rezultat = adoCom.Execute
'http://www.freevbcode.com/ShowCode.Asp?ID=3687
rezultat.MoveFirst
If rezultat.BOF = True Then
MsgBox "NA POCETKU SAM"
Else
MsgBox "NISAM NA POCETKU"
End If
MsgBox rezultat("naziv")
MsgBox rezultat("broj")
'rezultat.MovePrevious
MsgBox rezultat("naziv")
MsgBox rezultat("broj")
Exit Sub
'do until rezultat.MoveNext
'Loop
Adodc1.Refresh
End Sub
ja shvacam da ja bas nemam dobro razumjevaje ovoga ADODB.Recordset-a tj., kao se on treba koristiti i sto se moze uciniti sa njim, pa ko znas neki link gdje je to dobro objasnjeno(sa malo naprednijim primjerima) molim te da ga staviš
P.S. stavio sam cijeli projek na
http://www.mediafire.com/?uwy1gyxgitp pa ako netko zeli moze baciti pogled...
HVALA svima...
