Search results for query: *

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...

Invalid reference

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 *...

How to get ride of run Time Error'9' in Vb6

Run Time Error:438 Object Doesn't support this property or method Shows Debug in Fullreport.print

Don't mind, i am some what confused, please update my code. Thnx for Help alot I am just stucked in that place

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 & "'"...

How to print a data report in Network Printer in a VB 6 application?

Worked out, but got error.http://www.mediafire.com/i/?xq13v49t6jp5ss1

Changed name of field, still same

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...

Even in local system also same problem, just blank report

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 =...

Its not in Code, while running report from Application

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...

Its not SQL, VB 6 Data Reporting

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 = '" &...