Question about Microsoft Press MS Access 2000 and Visual Basic for Application (0-7356-0592-0)

1 Answer

What is the compatible database for visual basic 6.0?

It is about the compatibility of data object of visual basic 6.0 and the database created in MS Access 2000

Posted by on

1 Answer

  • Level 2:

    An expert who has achieved level 2 by getting 100 points

    MVP:

    An expert that gotĀ 5 achievements.

    Governor:

    An expert whose answer gotĀ voted for 20 times.

    Scholar:

    An expert who has written 20 answers of more than 400 characters.

  • Expert
  • 145 Answers

Microsoft Access uses the Jet Engine. In VB 6, you can create a data connection using ODBC or OLE DB. Here is an example of OLE DB:

"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\YourAccessDB.mdb;User Id=;Password=;" Good luck

Posted on Mar 12, 2009

Add Your Answer

Uploading: 0%

my-video-file.mp4

Complete. Click "Add" to insert your video. Add

×

Loading...
Loading...

Related Questions:

2 Answers

What is ms-excel


ms excel is a program that you can make graphs and set up all sorts of things like prices at a petrol station on the front neon sign you can set it up that each time the price rises it will automatically increase that rise in dollars and cents
hope this helps

Feb 15, 2011 | Broderbund Learn MS Windows XP and Excel...

1 Answer

How to use adodb connection in visual basic version 6?


To use Connection String, we have to set the Connection String to a valid Connect String and then calling the Open method we can open the Connection by passing the connection string as first argument. Now a command object is created with Record set Open method that is given as argument. Then command is executed by command.Execute metod and resulting amswer is saved in recordset created.

Jun 28, 2010 | Microsoft Step by Step Visual Basic 6.0...

2 Answers

I NEED MS EXCEL CONVERT FORMULA FOR NUMBER TO CURRENCY


Here is a very popular bit of code from Microsoft that will convert any currency amount in a cell to English words. All code and text from below here is the work of Microsoft.

Summary
This article shows you how to create a sample, user-defined function named ConvertCurrencyToEnglish() to convert a numeric value to an English word representation. For example, the function will return the following words for the number 1234.56: One Thousand Two Hundred Thirty Four Dollars And Fifty Six Cents

The Function Wizard can also be used to enter a custom function in a worksheet. To use the Function Wizard, follow these steps:

1. Click the Function Wizard button, and select User Defined under Function Category.
2. Select ConvertCurrencyToEnglish, and enter your number or cell reference.
3. Click Finish

To Create the Sample Functions

1. Insert a module sheet into a workbook. To do this in Microsoft Excel 97 or Microsoft Excel 98, point to Macro on the Tools menu, and then click Visual Basic Editor. In the Visual Basic Editor, click Module on the Insert menu. In Microsoft Excel 5.0 or 7.0, point to Macro on the Insert menu and click Module.

2. Type the following code into the module sheet.
Function ConvertCurrencyToEnglish (ByVal MyNumber)

Dim Temp

Dim Dollars, Cents

Dim DecimalPlace, Count



ReDim Place(9) As String

Place(2) = " Thousand "

Place(3) = " Million "

Place(4) = " Billion "

Place(5) = " Trillion "



' Convert MyNumber to a string, trimming extra spaces.

MyNumber = Trim(Str(MyNumber))



' Find decimal place.

DecimalPlace = InStr(MyNumber, ".")



' If we find decimal place...

If DecimalPlace > 0 Then

' Convert cents

Temp = Left(Mid(MyNumber, DecimalPlace + 1) & "00", 2)

Cents = ConvertTens(Temp)



' Strip off cents from remainder to convert.

MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))

End If



Count = 1

Do While MyNumber <> ""

' Convert last 3 digits of MyNumber to English dollars.

Temp = ConvertHundreds(Right(MyNumber, 3))

If Temp <> "" Then Dollars = Temp & Place(Count) & Dollars

If Len(MyNumber) > 3 Then

' Remove last 3 converted digits from MyNumber.

MyNumber = Left(MyNumber, Len(MyNumber) - 3)

Else

MyNumber = ""

End If

Count = Count + 1

Loop



' Clean up dollars.

Select Case Dollars

Case ""

Dollars = "No Dollars"

Case "One"

Dollars = "One Dollar"

Case Else

Dollars = Dollars & " Dollars"

End Select



' Clean up cents.

Select Case Cents

Case ""

Cents = " And No Cents"

Case "One"

Cents = " And One Cent"

Case Else

Cents = " And " & Cents & " Cents"

End Select



ConvertCurrencyToEnglish = Dollars & Cents

End Function







Private Function ConvertHundreds (ByVal MyNumber)

Dim Result As String



' Exit if there is nothing to convert.

If Val(MyNumber) = 0 Then Exit Function



' Append leading zeros to number.

MyNumber = Right("000" & MyNumber, 3)



' Do we have a hundreds place digit to convert?

If Left(MyNumber, 1) <> "0" Then

Result = ConvertDigit(Left(MyNumber, 1)) & " Hundred "

End If



' Do we have a tens place digit to convert?

If Mid(MyNumber, 2, 1) <> "0" Then

Result = Result & ConvertTens(Mid(MyNumber, 2))

Else

' If not, then convert the ones place digit.

Result = Result & ConvertDigit(Mid(MyNumber, 3))

End If



ConvertHundreds = Trim(Result)

End Function







Private Function ConvertTens (ByVal MyTens)

Dim Result As String



' Is value between 10 and 19?

If Val(Left(MyTens, 1)) = 1 Then

Select Case Val(MyTens)

Case 10: Result = "Ten"

Case 11: Result = "Eleven"

Case 12: Result = "Twelve"

Case 13: Result = "Thirteen"

Case 14: Result = "Fourteen"

Case 15: Result = "Fifteen"

Case 16: Result = "Sixteen"

Case 17: Result = "Seventeen"

Case 18: Result = "Eighteen"

Case 19: Result = "Nineteen"

Case Else

End Select

Else

' .. otherwise it's between 20 and 99.

Select Case Val(Left(MyTens, 1))

Case 2: Result = "Twenty "

Case 3: Result = "Thirty "

Case 4: Result = "Forty "

Case 5: Result = "Fifty "

Case 6: Result = "Sixty "

Case 7: Result = "Seventy "

Case 8: Result = "Eighty "

Case 9: Result = "Ninety "

Case Else

End Select



' Convert ones place digit.

Result = Result & ConvertDigit(Right(MyTens, 1))

End If



ConvertTens = Result

End Function







Private Function ConvertDigit (ByVal MyDigit)

Select Case Val(MyDigit)

Case 1: ConvertDigit = "One"

Case 2: ConvertDigit = "Two"

Case 3: ConvertDigit = "Three"

Case 4: ConvertDigit = "Four"

Case 5: ConvertDigit = "Five"

Case 6: ConvertDigit = "Six"

Case 7: ConvertDigit = "Seven"

Case 8: ConvertDigit = "Eight"

Case 9: ConvertDigit = "Nine"

Case Else: ConvertDigit = ""

End Select

End Function

Apr 15, 2010 | Broderbund Learn MS Windows XP and Excel...

1 Answer

Need office works nine database manual


If you do not plan on buying the Microsoft Office, then I suggest you download the free software Called Open Office. . It's is about the same as microsoft office, excel, access data base, etc.

OpenOffice.org: The Free, Open Source Office Suite. ... A multiplatform and multilingual office suite and an open-source project. Compatible with all other major office suites, free to download, use,

Just click on the download link below. If you find this information helpful, please rate me. Thanks

wwww.openoffice.org

Good Luck.

Mar 17, 2010 | Educational & Reference Software

1 Answer

I want ot link my inventory database to another pc


Create user account for second system in Sql
If u want to get data by code means u need to create
connection to database by using jdbc connection string .
then write a query to acces data.
create statement
pass query to that statement
run query

Statement statement=con.createstatement();
statement.executequery(querystring);

Oct 15, 2009 | Microsoft Designing ASP.NET Applications...

1 Answer

How can create a popup menu using visualbasic


inthe script use the visable= true for a form that you have created

Oct 05, 2009 | Microsoft Step by Step Visual Basic 6.0...

1 Answer

Want to create a Film database Software


If you have some experience with .net programming then you could make your own using a little open source program that is completly free and was designed as a movie database. The database uses access so you can create any extra fields there and then add the extra fields in C#. It is a quite simple design but with a little bit of modification and fiddling you could put in pictures of dvd covers etc and do basically whatever you'd like with it. You have to create an account to download it but it is free. You can find it here: http://www.codemiles.com/finished-projects/simple-movie-database-in-c-using-microsoft-access-t2692.html

Jul 10, 2009 | Educational & Reference Software

1 Answer

I want searching code for visual basic 2008....which can search the required information from a database...in my case database is FIR...if i input the FIR number..i want to show the correspoding...


Not much code needed in Visual Basic for this one. Visual Basic would only show the data actually. The search on the database is actually just one query statement. query = Select * from databasename.tablename where FIRnumber=?. where ? is the input in a textbox.

Apr 02, 2009 | Educational & Reference Software

Not finding what you are looking for?
Microsoft Press MS Access 2000 and Visual Basic for Application (0-7356-0592-0) Logo

Related Topics:

289 people viewed this question

Ask a Question

Usually answered in minutes!

Top Microsoft Educational & Reference Software Experts

k24674

Level 3 Expert

7987 Answers

Brian Sullivan
Brian Sullivan

Level 3 Expert

27725 Answers

Les Dickinson
Les Dickinson

Level 3 Expert

18299 Answers

Are you a Microsoft Educational and Reference Software Expert? Answer questions, earn points and help others

Answer questions

Manuals & User Guides

Loading...