I have a Oracle application developped in Forms 6.0 & Oarcel 12g Database, Aplication is running very well in windows 32bit perfectly, when it comes to Windows 64, it throughs error " \Orant\DBS\FMCUS.MSG not found". Is there any windows 32/64...
Private rs As New ADODB.connection
Private rr As New ADODB.recordset
Private Sub cmdAcchu_Click()
Set rs = CreateObject("Adodb.connection")
rs.Provider = "Microsoft.jet.oledb.4.0"
rs.Open App.Path & "\Medrar.mdb"
'rs.Open "\\mika\medrar\Medrar.mdb"
Set rr = New ADODB.recordset
rr.Open "select *...
Private rs As New ADODB.recordset
Dim obj As PageSet.PrinterControl
Private Sub cmdClose_Click()
Unload Me
End Sub
Private Sub cmdOK_Click()
Set obj = New PrinterControl
obj.ChngOrientationLandscape
rs.Open "select * from cheques where mata = '" & pro.Text & "' and status = '" & sta.Text & "'"...
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Set fd = CreateObject("Adodb.connection")
fd.Provider = "Microsoft.jet.oledb.4.0"
fd.Open App.Path & "\Users.mdb", "endromida"
'fd.Open "\\mika\medrar\Medrar.mdb","endromida"
Set Fs = New ADODB.recordset
Fs.Open "Select role...
Thnx i will verify and one more suggestion required , one report is running, but i don't show me records in run time, gives display only blank report.
Code for that is
Private rs As New ADODB.connection
Private rr As New ADODB.recordset
Private Sub cmdAcchu_Click()
Set rs =...
Private rs As New ADODB.recordset
Dim obj As PageSet.PrinterControl
Private Sub cmdClose_Click()
Unload Me
End Sub
Private Sub cmdOK_Click()
Set obj = New PrinterControl
obj.ChngOrientationLandscape
rs.Open "select * from cheques where mata = '" & pro.Text & "'", con, 1, 3
If rs.RecordCount =...
Hi all
I have developed a application on VB6 with Access 2003 and Datareport. while running reports i am getting error of Run time Error'9'. The system is connected in network and using network printer on that, Any suggestions to resolve this error'
Private rs As New ADODB.connection
Private rr As New ADODB.recordset
Private Sub cmdAcchu_Click()
Set rs = CreateObject("Adodb.connection")
rs.Provider = "Microsoft.jet.oledb.4.0"
'cs.Open App.Path & "\Medrar.mdb"
rs.Open "\\mika\medrar\Medrar.mdb"
Set rr = New ADODB.recordset
rr.Open "select *...
Private Sub cmdAcchu_Click()
Set ps = CreateObject("Adodb.connection")
ps.Provider = "Microsoft.jet.oledb.4.0"
'cs.Open App.Path & "\Medrar.mdb"
ps.Open "\\mika\medrar\Medrar.mdb"
Set ls = New ADODB.recordset
ls.Open "select * from reser where reno = " & Combo1.Text & ""
If ls.RecordCount = 0...
Dim obj, rs As ADODB.recordset, SQL As String
Call db_conn
Set rs = New ADODB.recordset
strString = " SELECT cusname,idnumb,mobi,pron,proc,blkno,lannum,sqland,cost,comiso,addit,deduc,gtot,vali,rename" & _
" From reser" & _
" WHERE reno = '" &...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.