aktharshaik

As suggested by [COLOR="Red"][B]wrappingduke[/B][/COLOR] 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 …

I am uploading a sample project for ur reference. 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 …

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. Regards Shaik Akthar

s. u can use the file system object and textstream to open a textfile, read the data and display it in a lable or a textbox. Add the Microsoft Scripting Runtime in the References. Create objects of the following. FileSystemObject and TextStream Try out these, if u still cant make …

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. Try this Go to command prompt. and type the foll commands ------------------------------------------------------- C:\>svrmgrl [enter] 'Rem: u will the …

Try this code [code] 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 …

Just put the following line in the btnSave_Click() event [code] Private Sub btnSave_Click() 'This subroutine writes data to the database Dim objDB As Database Dim objRS As Recordset Dim InputIndex As Double Dim InputName As String Dim InputMin As Double Dim InputMax As Double Dim InputPLC As String Dim SelectedInput …

Another suggestion, use MSHFlexGrid (Heirarchial FlexGrid to populate the records of the recordset. U need not use the loop to populate the records. just use Open the recordset as KeySet rst.Open QryString, con, adOpenKeyset Set MSHFlexGrid1.Recordset = rst

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. Regards Shaik Akthar

I dont know whether this can help u or not, but plz take a look at the attached excel file here. Regards Shaik Akthar

i have attached a vba for excel help file to the following thread. plz have a look at it. u will get to know all about VBA in excel. [url]http://www.daniweb.com/forums/thread140753.html[/url] Regards Shaik Akthar

Yes surely u can use crystal reports. What is the Database u r using? Is it MS-Access or SQL Server or other. If u r stuck up at any point just post the code at which u r stuck up with. will try to do the needful. Also can u …

Try This Code [code] 'Put this declaration on the top of the Code Window of the form Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As …

Dear Breezyy The Asc() function returns the ascii value of only one character at a time. If u want to get the ascii values of a group of characters, u have to use the Asc() for each character one at a time. U can use For...Next to loop thru the …

try this, we know that 1 hr = 60 mins 1 min = 60 secs so sec = x mins = int(sec / 60) sec = sec % 60 hrs = int(mins/60) mins = min % 60 days = int(hrs/24) hrs = hrs%24 hence you get days hrs mins and …

[code] Result= input_number Mod 7 If (Result > 0) Then Cells(1,1).Value = 3 Else NextResult = input_number Mod 5 If (NextResult > 0) Then Cells(1,1).Value = 2 Else Cells(1,1).Value = 1 End If End If [/code] 56 mod 7 is 0. hence Else part is executed. In the else part …

U can use the same syntax [code] '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 …

The answer 'A' is true because within a module or from another module u can call the procedure followed by its module name. but to call a function which is in another module, the module name where the function resides will be mandatory. The Answer 'B' is true because you …

There r so many ways to loop. Try this one. [code] Dim colVar As Integer Dim colChars As String Dim cellAdd As String colChars = "ABCDEFGHIJKLMNOPQRSTUVWXYZ" For colVar = 1 To 4 cellAdd = Mid(colChars, colVar, 1) & 1 Range(cellAdd).Value = colVar Next colVar [/code] Hope this solves ur problem. …

can u tell how the client and server are connected. Is is Local Network, Dial-Up or something else. U can also post some sample code for the hint of what u r actually trying to do, so that we can figure out the best possible way from what ur expectations …

[code] Dim colVar As Integer Dim noOfCols As Integer Dim colChars As String Dim cellAdd As String colChars = "ABCDEFGHIJKLMNOPQRSTUVWXYZ" 'This piece of code holds good 'for Columns upto 26 only 'Because beyond that the col names will 'be AA, AB, AC,... 'Then u may have to create and array …

The Range() uses a string for selection of a range of cells. you can use like this for eg: [code] Dim i as integer Dim n as integer n = 100 'The last row For i = 5 to n Range("A" & i).Select If ActiveCell <> "" Then ActiveCell.Select Selection.Copy …

I guess it is c) -1

Please focus precisely on the problem. Are you using Visual Basic IDE or the VBA in MS-Access? What mode are you using to connect to the data? If u can place some sample code with which u have tried and failed, then maybe it would be more helpful for me …

Dear All, Plz focus on the exact problem. When u r posting in this forum, first do give the backend u r using, table structure if possible, some sample code in front end which u r having problem with. 'll definitely help us to help u all. regards Shaik Akthar

upload ur excel file here using the Go Advanced button to post the reply and i can try to do the needful and send it back to u.

Check Out this code. it may be of some help. i'll give still more effective code later on if u r not able to get what u need. try to use the logic from the sample code given here. [code] Option Explicit Private xlTemp As Excel.Application Private sFileName As String …

Check Out this code. it may be of some help. i'll give still more effective code later on if u r not able to get what u need. try to use the logic from the sample code given here. [code] Option Explicit Private xlTemp As Excel.Application Private sFileName As String …

plz state the problem much clearly. give some sample code which u have tried and failed. do u want to print the textfile content to a Dot Matrix Printer in DOS Mode? Do u want a formatted windows based output of the textfile content?

Try this sample project uploaded here and see if it can help u in any way. its from the site [url]www.vb6.us[/url]. u can find more samples on pdf's at this site.

To be able to ZAP or PACK your .DBF files, you must have the following entry in your VB.INI or <appname>.INI file: [dBase ISAM] Deleted=On This will filter out deleted records so they do not appear in recordsets. To perform a ZAP, you simply need to run a DELETE action …

use db.Execute

post the error message also plz, so that the problem is specific.

give some hint with the sample code u want to solve for. Apart from that some of vb basic commands are there to get any substring from a string 1. Left(string, n) gets [COLOR="Red"]n[/COLOR] number of characters from the left of the string 2. Right(string, n) gets [COLOR="Red"]n[/COLOR] number of …

Many events, methods and properties are defined to handle DataGrid. what have u tried at first. make a beginning first. i am giving a small code for AfterColUpdate Event Example This example does a lookup when one column is updated and places the result in another column. Private Sub DataGrid1_AfterColUpdate …

[code]Private Sub btnSF_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSF.Click Dim response As Integer Dim sumVar as long sumVar = 0 response = CInt(InputBox("Enter a couple positive numbers than enter -1.")) 'Check if the response value is positive/not if response > 0 then sumVar = sumVar + response …