I am working in VB6 with and Access.mdb database.
I get a syntax error on the Alter Table query statement below. I have tried to change it but I cannot seem to beat the problem.
Using the .Open statement I have done selects/insert/drops/deletes and updates so that does not seem to be the...
How would one display the contents of a table on a form?
After the user provides the search criteria and a name for table about to be created, he will click the command key and the table will be created with all the data that matched the given criteria.
Then I want to show the user the data...
Well,
Don't ask me how, I guess i was up programming to late last night, but the Text1 had an Index set on it and was seeing it as Text1(2) and not as Text1. I should of noticed that but suffered from brain drain. When i tried "gmmastros" sugestion and put MsgBox TypeName(Text1) in the Load Form...
I have a text field on a form.
It is for entry of a number which I use in a calculation.
When I use it in an expression like Some_integer - Text1 it gives the message "Argument not optional and highlights Text1.
When I try the command data_numeric=Val(text1.text) it gives me an error saying...
At the risk of sounding dumb:
I need to know how to paint a numeric field on a form or convert a text field that receives a numeric value into a number so I can us it in a math calculation.
Thanks!
I have tried the above and it works well for a DataList and the DataCombo but not for the DBCombo .
With the DBCombo I get the message when I try to fill out the RowSource:
"No compatible data source found for this control. Please add an intrinsic Data Control or a Remote Data Control to the...
I am trying to use a DBCombo box.
It reads a Access.mdb table with only one field.
It works fine when I bind it to a Data ocx object on the form. It works fine, that is, as long as I set the Properties of the Data ocx object to:
DatabaseName = Access.mdb full path (Ex. C:\etc.)...
How can you, in VB, find the Table names that are located in a given database?
For example, say database TEST_DB contains the following tables: TableA, TableB, and TableC.
What command would return "TableA TableB TableC"?
I would like to try and implement this through VB to check if a table...
...I'm about at the end of my ideas.
Any advice?
dbExportDB.Open "MarketingDB"
dbImportDB.Open "CampaignDB"
rsTBL1.Open "SELECT * " & _
"FROM CustomerMaster" _
, dbExportDB, adOpenDynamic, adLockOptimistic
Do Until rsTBL1.EOF
Hold(1) =...
To the best of my knowledge, my co-worker and I have our PC's and VB environments set up the same.
The following Sub runs fine on my PC but when I send it to my co-worker and he loads it onto his PC in VB it will not run but gets the error message:
" Syntax error in the FROM clause"
and the...
I have two Access databases (mdb1 & mdb2) that are accessed via ODBC. Both mdb's are in different directories and nether one is in the VB default directory.
I need to know the most efficient way to code for opening each database and reading every row from a table in the first database...
How do you use nested quotation marks in a string?
I need to put double quotes in to a string and cannot find out how to do it.
Ex:
x = " "Some string" "
I have tried several ways but cannot find how to do it and cannot find it in a book, etc.
Help appreciated!
Thanks!
...DataFrom = "FieldNameX = 'X' AND FieldNameY = 'Y'"
CDB.Open "CurrentDB"
CRS.Open _
"INSERT INTO tbl_Input_In_CBD (" & DataTo & ") SELECT * FROM tbl_Output_From_DB _
WHERE " & DataFrom & " ", _
CDB, adOpenDynamic, adLockOptimistic
But, if I don't link the table in CurrentDB but try to open...
This is the code that causes my problem:
Public db As Database
Public recset As Recordset
Private Sub Form_Load()
Set db = OpenDatabase("C:\Documents and Settings\res982\My Documents\Nwind.mdb")
Set recset = db.OpenRecordset("Customers", dbOpenTable)
If recset.EOF = False Then...
...in colServiceList
errReturn = objService.StopService()
Next
Wscript.Sleep 60000
Set colServiceList = objWMIService.ExecQuery _
("SELECT * FROM Win32_Service WHERE Name='iisadmin'")
For Each objService in colServiceList
errReturn = objService.StopService()
Next
I did not include the Start...
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.