•
•
•
•
What is DaniWeb IT Discussion Community?
You're currently browsing the Visual Basic 4 / 5 / 6 section within the Software Development category of DaniWeb, a massive community of 426,201 software developers, web developers, Internet marketers, and tech gurus who are all enthusiastic about making contacts, networking, and learning from each other. In fact, there are 1,816 IT professionals currently interacting right now! Registration is free, only takes a minute and lets you enjoy all of the interactive features of the site.
Please support our Visual Basic 4 / 5 / 6 advertiser: Programming Forums
Views: 9587 | Replies: 64 | Solved
 |
•
•
Join Date: Jul 2007
Posts: 71
Reputation: 
Rep Power: 2
Solved Threads: 1
Junior Poster in Training
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
•
•
•
•
Originally Posted by QVeen72 
Hi Suneel,
What does ur Text1.Text contain...?
It shoud have either Table name (CHECK_2045) or a Select Query Statment (Select * From CHECK_2045)
Regards
Veena
•
•
Join Date: Jul 2007
Posts: 71
Reputation:
Rep Power: 2
Solved Threads: 1
Junior Poster in Training
hello bro
may i know the name of any website which gives nline tutorial of vb topicwise
reply
regards
suneel
may i know the name of any website which gives nline tutorial of vb topicwise
reply
regards
suneel
•
•
Join Date: Jul 2007
Posts: 71
Reputation:
Rep Power: 2
Solved Threads: 1
Junior Poster in Training
helllllllloooooo
where r u dear.am waitin here since mornin.
tccc
where r u dear.am waitin here since mornin.
tccc
•
•
Join Date: Jul 2007
Location: Philippines
Posts: 205
Reputation:
Rep Power: 0
Solved Threads: 22
Posting Whiz in Training
•
•
Join Date: Jul 2007
Posts: 71
Reputation:
Rep Power: 2
Solved Threads: 1
Junior Poster in Training
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
•
•
•
•
Originally Posted by jireh
Here, enjoy!!!
http://www.ask.com/web?q=visual+basi...rc=0&o=0&l=dir
•
•
Join Date: Jul 2007
Posts: 71
Reputation:
Rep Power: 2
Solved Threads: 1
Junior Poster in Training
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
•
•
Join Date: Nov 2006
Posts: 712
Reputation:
Rep Power: 3
Solved Threads: 97
Master Poster
Hi SUNEEL,
INSTALL "DAOSDK/REDIST" FROM VISUAL STUDIO 6.0 CD (first/second)
Regards
Veena
INSTALL "DAOSDK/REDIST" FROM VISUAL STUDIO 6.0 CD (first/second)
Regards
Veena
•
•
Join Date: Jul 2007
Posts: 71
Reputation:
Rep Power: 2
Solved Threads: 1
Junior Poster in Training
hello veena
they r sayin itis already installed .not required also.
regards
suneel
they r sayin itis already installed .not required also.
regards
suneel
Last edited by suneel kar : Jul 26th, 2007 at 3:07 am.
•
•
Join Date: Nov 2006
Posts: 712
Reputation:
Rep Power: 3
Solved Threads: 97
Master Poster
Hi,
Why dont u install it once again and try..., as i told u it doesnt install on its own..
Regards
Veena
Why dont u install it once again and try..., as i told u it doesnt install on its own..
Regards
Veena
|
•
•
•
•
•
•
•
•
DaniWeb Visual Basic 4 / 5 / 6 Marketplace
•
•
•
•
Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)
Linear Mode
Similar Threads
- browsing file in VB? (Visual Basic 4 / 5 / 6)
- Reading or writing a double into a bin file (C++)
Other Threads in the Visual Basic 4 / 5 / 6 Forum
- Previous Thread: Spread sheet
- Next Thread: vb6-excel
