Please support our Visual Basic 4 / 5 / 6 advertiser: Programming Forums
Views: 10695 | Replies: 64 | Solved
![]() |
•
•
Join Date: Jul 2007
Posts: 71
Reputation:
Rep Power: 2
Solved Threads: 1
hello gud mornin dear
veena is there any website which can guide me or provide tutorial for vb topic wise.
if any then plz do reply
regards
suneel
veena is there any website which can guide me or provide tutorial for vb topic wise.
if any then plz do reply
regards
suneel
•
•
Join Date: Jul 2007
Location: Philippines
Posts: 255
Reputation:
Rep Power: 0
Solved Threads: 28
Here, enjoy!!!
http://www.ask.com/web?q=visual+basi...rc=0&o=0&l=dir
http://www.ask.com/web?q=visual+basi...rc=0&o=0&l=dir
A conclusion is the place where you got tired of thinking. http://www.martin2k.co.uk/forums/index.php?showforum=4
http://www.a1vbcode.com/a1vbcode/vbforums/Forum3-1.aspx
http://www.developerfusion.co.uk/for...orum&ForumID=4
•
•
Join Date: Jul 2007
Posts: 71
Reputation:
Rep Power: 2
Solved Threads: 1
thanx alot dear for givin me the website. i just checked the site.
thanx alot again dear.may i have ur mail id dear if u dont mind .mine gmail id is suneelkashmiri@gmail.com
be in touch .
with regards
suneel
thanx alot again dear.may i have ur mail id dear if u dont mind .mine gmail id is suneelkashmiri@gmail.com
be in touch .
with regards
suneel
•
•
Join Date: Jul 2007
Posts: 71
Reputation:
Rep Power: 2
Solved Threads: 1
hello veena
i am sendin u the code see wts problem in this.
it is givvin "unrecognized database format" error.
reply plzz.
code is
Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
Private Sub Command1_Click()
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\RR.dbf ; Persist Security Info=False"
rs.Open RR, con, adOpenForwardOnly, adLockOptimistic
Dim str As String
If Dir("c:\Suneel_Development\New Folder\New Folder\data.txt") <> "" Then
Kill "c:\Suneel_Development\New Folder\New Folder\data.txt"
End If
Open "c:\Suneel_Development\New Folder\New Folder\DATA.TXT" For Append As #1
Do While rs.EOF = False
For i = 0 To rs.Fields.Count - 1
If i < rs.Fields.Count - 1 Then
str = str & IIf(IsNull(rs(i)), "null", rs(i)) & Chr(9)
Else
str = str & IIf(IsNull(rs(i)), "null", rs(i))
End If
Next
Print #1, str
rs.MoveNext
str = ""
Loop
Close #1
rs.Close
con.Close
End Sub
i am sendin u the code see wts problem in this.
it is givvin "unrecognized database format" error.
reply plzz.
code is
Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
Private Sub Command1_Click()
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\RR.dbf ; Persist Security Info=False"
rs.Open RR, con, adOpenForwardOnly, adLockOptimistic
Dim str As String
If Dir("c:\Suneel_Development\New Folder\New Folder\data.txt") <> "" Then
Kill "c:\Suneel_Development\New Folder\New Folder\data.txt"
End If
Open "c:\Suneel_Development\New Folder\New Folder\DATA.TXT" For Append As #1
Do While rs.EOF = False
For i = 0 To rs.Fields.Count - 1
If i < rs.Fields.Count - 1 Then
str = str & IIf(IsNull(rs(i)), "null", rs(i)) & Chr(9)
Else
str = str & IIf(IsNull(rs(i)), "null", rs(i))
End If
Next
Print #1, str
rs.MoveNext
str = ""
Loop
Close #1
rs.Close
con.Close
End Sub
![]() |
•
•
•
•
Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)





Linear Mode