-
What is a combo box?
A combo box style list item combines the features found in list and text item. Unlike the pop list or the text list style list items, the combo box style list item will both display fixed values and accept one operator entered value.
-
-
-
and it runned after coding but a error is coming
"Compiler Error Message: BC30002: Type 'MySqlConnection' is not defined"
can u pl help me?
">i had installed "mysql, mysqladministrator, mysql connector.net and it runned after coding but a error is coming "Compiler Error Message: BC30002: Type 'MySqlConnection' is not defined"can u pl help me?
-
-
-
-
-
-
-
-
-
-
-
-
At what point of report execution is the before Report trigger fired?
After the query is executed but before the report is executed and the records are displayed.
-
-
Dim l As Integer
l = Val(InputBox("Enter the suppliers Number to Edit", "Edit Suppliers"))
Rela = "Select * from suppliers where supplier_No =" & l & ""
getdata Rela
If Plot.RecordCount = 0 Then
MsgBox "Record Not Found", vbInformation, "Supplier"
ElseIf Plot.RecordCount > 0 Then
Call getsuppliers
MsgBox "Record Found", vbInformation, "Supplier"
loadlv2
End If
End Sub
**************************************************************
Private Sub cmdDelete_Click()
Dim x As Variant
Dim f As Integer
If MsgBox("Are you sure You Want to Delete This Record", vbYesNo, "Delete File") = vbYes Then
For f = 1 To ListView1.ListItems.Count
If ListView1.ListItems(f).Checked = True Then
x = ListView1.SelectedItem.Text
Relationship.Execute "delete * from Customer where Cust_No = " & x & ""
End If
Next f
MsgBox "Record has been deleted", vbCritical, "Delete.."
End If
End Sub
*****************************************************************
Public Relationship As DAO.Database
Public Plot As DAO.Recordset
Public Rela As String
Public Sub opendb()
Set Relationship = OpenDatabase(App.Path + "\Relationship.mdb")
End Sub
Public Sub getdata(ByVal source As String)
opendb
Set Plot = Relationship.OpenRecordset(source)
End Sub
Public Sub save(ByVal str As String)
opendb
Relationship.Execute str
End Sub
">I have small application that i was developing as a school evaluation project,but i have faced problems.(i.e) My command buttons are not perfoming the tasks as expected Edit, and Delete buttons they search and delete the first records on the database. A sample of the commands is as below i am using Using DAO in a module and listviews to display the records.Please helpPrivate Sub cmdEditer_Click()cmdsaved.Caption = "Update"Dim l As Integerl = Val(InputBox("Enter the suppliers Number to Edit", "Edit Suppliers"))Rela = "Select * from suppliers where supplier_No =" & l & ""getdata RelaIf Plot.RecordCount = 0 ThenMsgBox "Record Not Found", vbInformation, "Supplier"ElseIf Plot.RecordCount > 0 ThenCall getsuppliersMsgBox "Record Found", vbInformation, "Supplier"loadlv2End IfEnd Sub**************************************************************Private Sub cmdDelete_Click()Dim x As VariantDim f As IntegerIf MsgBox("Are you sure You Want to Delete This Record", vbYesNo, "Delete File") = vbYes ThenFor f = 1 To ListView1.ListItems.CountIf ListView1.ListItems(f).Checked = True Thenx = ListView1.SelectedItem.TextRelationship.Execute "delete * from Customer where Cust_No = " & x & ""End IfNext fMsgBox "Record has been deleted", vbCritical, "Delete.."End IfEnd Sub*****************************************************************Public Relationship As DAO.DatabasePublic Plot As DAO.RecordsetPublic Rela As StringPublic Sub opendb()Set Relationship = OpenDatabase(App.Path + "\Relationship.mdb")End SubPublic Sub getdata(ByVal source As String)opendbSet Plot = Relationship.OpenRecordset(source)End SubPublic Sub save(ByVal str As String)opendbRelationship.Execute strEnd Sub
-
What is an user exit used for?
A way in which to pass control (and possibly arguments ) form Oracle report to another Oracle products of 3 GL and then return control ( and ) back to Oracle reports.
-
Oracle Concepts Interview Questions
Ans