I have attached the modified version of ur project. Have a look at it. Dereference the DAO Library in references. It is not required. ADO is very flexible to use.
Plz can u tell if U R writing the code in VBA Code window of Excel or Visual Basic.
Also it will be helpful if you give the code u have created to make the changes to those csv spreadsheets. If it is confidential then just specify some outline model of how the code looks.
Use the Package and Deployment wizard to create the Setup Package from the source system where u have developed this project. This addin is a part of Microsoft Visual Basic.
1. Open ur project 2. Select Add-Ins -> Add-In Manager... option 3. Select the Package & Deployment Wizard 4. Put a check for Loaded/Unloaded and Load on Startup check boxes. 5. Click Ok.
Now u can find the Package & Deployment Wizard menu option in the Add-Ins menu. Click it and follow the instructions. This wizard will automatically identify all the required object, components and dlls for the project. except for user created files like ur database files, icon files etc. which if u want can manually add them in, i beleive 4/5 step of the wizard
Once the setup package folder is created, copy it to CD or pendrive and perform the setup process in the target computer.
Hope this helps u. Try it and if any problems get back to us.
Plz if u can post the little code u have tried and failed, what database u r using, tables and their field names involved in this, then it will b easy and quick for us to help u with the problem.
As suggested by wrappingduke the DTPicker and the MonthView controls are comfortable to use.
Another suggestion is that if u r using VB6.0 and have not applied the Service Pack 6, do it now because some functionalities related to these controls have been rectified and patched.
The Component Reference Name is Micorosoft Windows Common Controls-2 6.0 (SP6)
and the file is
MSCOMCT2.OCX
If the entry cannot be found in the Components Tab, u can browse for the above file from the components tab. The file MSCOMCT2.OCX resides in your "\WINDOWS\System" folder in Windows installed DRIVE for Windows 95,98 or Millenium editions and "\WINDOWS\System32" folder IN Windows installed DRIVE for XP. or sometimes "\WINNT\SYSTEM32" if Windows NT, 2003 etc.
As far as the connection to the db is concerned, u need to change the code at all places wherever u r connecting to the Access DB. if u r using Jet Database Driver for Access, u need to change it to the Microsoft Foxpro Driver.
Coming to the SQL Queries most of the queries used in MS-Access work in FoxPro 2.6 for DOS. Open your Foxpro IDE and try all the Possible Types of Queries u r using for MS-Access in the FoxPro command window once. Check out what type of queries r not working and just replace those.
Another Suggestion is that if u should and must have the flexibility of changing the Databases now & then, I suggest u that now is the time to work out on that in a more innovative method.
Create a database which stores the Types of Databases, Their Connection Strings, Current DB Type in use, SQL Queries, every possible variable content that ur project may be using. So that u can switch to the required one at any instance. Even this will pave the way for even if u r trying to go to some other database in future, like oracle, sql server etc. At that instance u will have very less work to do.
Of course all this requires a sufficient amount of time and man-power proportional ti the concern of the duration u have got to complete this.
Dear, I think the problem is with the field name. Rename ur field name from s.no to sno
the period might be being treated as an operator. it may be implying that 's' is the table name and 'no' is the field name. usually field names are referred with respect to their table name using the dot operator like
Do While (Not Founder) And (Not Adodc1.Recordset.EOF)
If Adodc1.Recordset.Fields("item_code").Value = Searchit Then
Founder = True
'do something here because your query has matched. The loop is running aimless. do like this
MsgBox "You have queried for item code " & Searchit & " which belongs to " & Adodc1.Recordset.Fields(1)
'and exit procedure
Exit Sub
End If
[B]Adodc1.Recordset.MoveNext[/B]
Loop
The Word Wrap property works. but the problem is with the height of the row in which the text is displayed. It does not grow automatically. Increase the height of the row in which there is lengthy text and u can find the text wrapped.
Also make sure that u have selected the CommandType property of the ADODC object. I have selected it as 2 - adCmdTable.
1. Right click on the ADODC object and open ADODC Properties. 2. In the RecordSource tab select the required command type. 3. And Table or stored procedure name if the RecordSource is "2 - adCmdTable" or "4 - adCmdStoredProc" or write the Command Text (SQL) if the RecordSource is "8 - adCmdUnknown" or "1 - adCmdText"
The hyperlink datatype adds a character '#' in the beginning and ending of the field value.
hence use the hLinkFile variable which holds the value of the Description field by eliminating the unnecessary # character using the Mid function
check if the file exists in the given path in the hLinkFile variable, and if yes then go for opening it and display its data.
put all the variables in the same procedure itself.
Imp: Add the following references.
1. Microsoft ActiveX Data Object 2.1 Library 2. Microsoft Scripting Runtime Library
Dim db As ADODB.Connection
Dim rst As ADODB.Recordset
Dim FSO As New FileSystemObject
Dim FL As TextStream
Dim hLinkFile As String
Set db = New ADODB.Connection
Set rst = New ADODB.Recordset
db.Open "Provider=Microsoft.Jet.Oledb.4.0;Data Source=" & App.Path & "\database.mdb"
rst.Open "SELECT DESCRIPTION FROM EQUIPMENT ", db, adOpenKeyset, adLockReadOnly
If rst.BOF = False Then
hLinkFile = Mid(rst!Description, 2, Len(rst!Description) - 2)
If Dir(hLinkFile) <> "" Then
Set FL = FSO.OpenTextFile(hLinkFile, ForReading, False)
Text1.Text = ""
While Not FL.AtEndOfStream
Text1.Text = Text1.Text & FL.ReadLine
Wend
FL.Close
End If
End If
If rst.State Then rst.Close
Set rst = Nothing
If db.State Then db.Close
Set db = Nothing
Set FL = Nothing
Set FSO = Nothing
use the following statement in declaring variables Make sure to add Microsoft ActiveX Data Objects 2.1 Library in references
Dim db as New ADODB.Connection
Dim rst as New ADODB.RecordSet
Dim FSO As New FileSystemObject
Dim FL as TextStream
db.Open "Provider=Microsoft.Jet.Oledb.4.0;Data Source=" & App.Path & "\database.mdb"
rst.open "SELECT DESCRIPTION FROM EQUIPMENT ", db, adopenKeySet, adLockReadOnly
If rst.BOF = False Then
'open the file in the field which contains
'the hyperlink to the textfile
'here replace the hLinkField with the hyperlink field actually
'in ur table
Set FL=FSO.OpenTextFile(rst!Description, ForReading, False)
Text1.Text = ""
While Not FL.AtEndOfStream
Text1.Text = Text1.Text & FL.ReadLine
Wend
FL.Close
End If
Set FL = Nothing
Set FSO = Nothing
There is some issue i faced when installing Oracle 8i on Windows XP. All the oracle services are not started automatically. I used to take an alternate route to UP the database.
C:\>svrmgrl [enter] 'Rem: u will the svrmgr prompt then type CONNECT INTERNAL/ORACLE and hit enter svrmgr> CONNECT INTERNAL/ORACLE Connected.
'After getting the connected message type STARTUP and hit enter 'you get few messages and the database mounted message at end. 'once this is done exit the svrmgr. svrmgr> STARTUP .. .. .. Database Mounted.
here in this code it reads only the first record, opens the text file specified in the hyperlink column and displays its contents in the textbox. Also note what the name of the textbox is in your form. here i have mentioned it as Text1. See that if u too have the same name of the textbox u created or anything else u might have changed the Name property of the textbox in which u r displaying the file contents.
Dim FSO As New FileSystemObject
Dim FL as TextStream
Set db = OpenDatabase(App.Path & "\database.mdb")
Set rst = db.OpenRecordset("table")
'If record found then
If rst.BOF = False Then
'open the file in the field which contains
'the hyperlink to the textfile
'here replace the hLinkField with the hyperlink field actually
'in ur table
Set FL=FSO.OpenTextFile(rst!hLinkField, & _
ForReading, False)
Text1.Text = ""
While Not FL.AtEndOfStream
Text1.Text = Text1.Text & FL.ReadLine
Wend
FL.Close
End If
Set FL = Nothing
Set FSO = Nothing
Run-Time error 438: Object does not support this property or method with rst.Open "SELECT hLinkField....." highlighted. so, i don't know what to do!
Dear Dan,
I added a dummy SQL Query stating that u have to use your fieldname which has the hyperlink and table name which holds the hyperlink column.
replace hLinkField with the fieldname in your table replace MyTable with the tablename in your database if any filtering is to be done based on a particular column add the 'where' clause or just query all the records like "Select * from table"
Here I assume u know how to connect to your database. i have considered ADODB.Connection object "con" which is global and already attached to the database.
Open the recordset. Extract the field with hyperlink and connect it to the File System Object and TextStream
Dim rs as New ADODB.Recordset
Dim FSO As New FileSystemObject
Dim FL As TextStream
rs.Open "SELECT hLinkField FROM MYTABLE WHERE ID = 1", con,adopenKeySet, adLockReadOnly
'If record found then
If rs.BOF = False Then
'open the file in the field which contains
'the hyperlink to the textfile
Set FL=FSO.OpenTextFile(rs!hLinkField, & _
ForReading, False)
Text1.Text = ""
While Not FL.AtEndOfStream
Text1.Text = Text1.Text & FL.ReadLine
Wend
FL.Close
End If
Set FL = Nothing
Set FSO = Nothing
if u can tell some specific requirement of what exactly u need, so that we may b precise in helping u out.
Try something out like taking up a small project. say student database. adding and manipulating student records etc.
Plz have a start, then only u will be able to learn very easily.
I am sorry if i have said anything out of ur way. but my sincere advice is first make a start urself, help urself first to make us help u. Regards Shaik Akthar
Dim Fso As New FileSystemObject
Dim Fl As TextStream
Dim fName as String
fName = App.Path & "\" & "MyFile.txt"
If Dir(fName) <> "" Then
If MsgBox("File Exists.OverWrite?",vbYesNo,"FILE EXISTS")=vbYes Then
Set Fl = Fso.CreateTextFile(fName, True)
Else
GoTo ExitPoint
End If
Else
'Here True/False is to Overwrite/Not if a file already exists
'by the name given in fName.
Set Fl = Fso.CreateTextFile(fName, True)
End If
Fl.Close
ExitPoint:
Set Fl = Nothing
Set FSO = Nothing
try the following thread from another forum. may be something u can get from there. Also there is another freeware called ghostscript which if totally free, s its free. u can find it on sourceforge.
where exactly do u want to send the data from the serial port. what device is attached to ur serial port. plz focus on the problem so more precise soln can be provided.
Can you post ur requirement more clearly. i could not get ur exact requirement. give some exact explanation with some more sample data. is it in VB that u require this?
'If u want to store diff values in different
'columns use variant else use ur required
'datatype
Dim arr(5,5) as Variant
'If at any instance you want to resize
'ur array use the following syntax
'Preserve keyword is optional
'It will help you retain the earlier values
Redim Preserve arr(10,7) as Variant
This is the reference from MSDN below Used atprocedure level to reallocate storage space for dynamic arrayvariables.
Part Description Preserve Optional.Keyword used to preserve the data in an existingarray when you change the size of the last dimension. varname Required. Name of the variable; follows standard variable naming conventions. subscripts Required. Dimensions of an array variable; up to 60 multiple dimensions may be declared. The subscriptsargument uses the following syntax: [lower To] upper [,[lower To] upper] . . .
When not explicitly stated in lower, the lower bound of an array is controlled by the Option Base statement. The lower bound is zero if no Option Base statement is present.
type Optional.Data type of the variable; may beByte,Boolean,Integer,Long,Currency,Single,Double,Decimal (not currently supported),Date,String (for variable-length strings), String * length (for fixed-length strings),Object,Variant, auser-defined type, or anobject type. Use a separate As type clause for each variable being defined. For a Variant containing an array, type describes the type of each element of …
Just place a note explaining the reason for why none of the answers is right. It may actually be a test for u in the assignment whether u can analyse logic or not.
