aktharshaik

[code=vb] Dim iLoc as Integer Dim tStr as Integer iLoc = 0 iLoc = InStr(1, status_array(i), Format(Now(), "mm-dd-yyyy")) tStr = "" If iLoc <> 0 Then tStr = Mid(status_array(i), iLoc, Len(status_array(i)) - (iLoc - 1)) 'tStr now holds the string extracte from Date to EndOfLine ' If you want to …

Write the code for exchanging the keycodes in the KeyDown Event of the rtb.

R u getting any error from the procedure mentioned by you? If yes then what is the error. or may be try this Open the query in Dynamic mode [code] rs1.Open "Select * from Soldto where cno='" & Combo1.Text & "'", cn, adOpenDynamic, adLockOptimistic [/code]

In programming nothing is happening unless u explicitly write code for it. U have to use a rich text box instead of a normal textbox, also u have to write the code to change any selected text to superscript/subscript/bold/any other formatting to be done. say create a button and write …

Could not get your exact requirement from your post. plz use the below checklist to be more clear for your req. 1. Please can u give some test values for the values in the ListBox 1 (approx. 10-12 is enough) 2. The numbers in the 7 text boxes. 3. and …

What is the operating system in which u r running the setup? I know an issue where, if u prepare the setup in versions greater than win98 (say XP/2000) and trying to run setup in win98, u get this error. Try upgrading your win98 with any available upgrade and/or service …

In which appliation R U writing VBA code? MS-Access or excel? Where is the table from which u want to read the fields from? Is it an Excel Spreadsheet or an Access Database or some other DB? Please make some clarity in your problem and will help to solve it …

Which Table Cell. Is it in MS-Access u want? or Is it any cell in the FlexGrid in VB?

Visual Studio has a tool called Help Workshop under Microsoft Visual Studio 6.0 tools. Note: This will work only for WinHelp and not for Html Help. Start -> Programs -> Microsoft Visual Studio 6.0 -> Microsoft Visual Studio 6.0 Tools -> Help Workshop You start the Help workshop. Choose New …

Plz check out the following attached file.

Try this one. [code] strSql = "SELECT mrproduction.mrStkNum, mrproduction.mrLotNum, mrproduction.mrQty, fglotnum.mrCost FROM mrproduction INNER JOIN fglotnum ON mrproduction.mrLotNum=fglotnum.mrLotNum" rs.Open strSql, cn, adOpenStatic, adLockOptimistic, adCmdText If rs.BOF = False Then rs.MoveFirst End If [/code] also can add sorting order clause [code] strSql = "SELECT mrproduction.mrStkNum, mrproduction.mrLotNum, mrproduction.mrQty, fglotnum.mrCost FROM mrproduction INNER …

Try this piano program in VB.

It must be [code] dr.Execute ("alter table results12 add Total number,Percentage number,Status char(5)") [/code] remove the Parenthesis for the Fields list provided.

can u plz upload the files to check?

Where do u want the records to be printed? Is it a printer? or only on the console (screen)? You can very much use FlexGrid/Hierarchical FlexGrid control to display the data from the database onto the screen in the form of a table. Regards Shaik Akthar.

Corrections rs.Open "Insert Into Deliver (scode, pcode, quantity, unit, amount, pcarrier, pterms, drnumber, date) Values ('" + Combo1.Text + "','" + Combo2.Text + "','" + Text1.Text + "','" + Text2.Text + "','" + Text3.Text + "','" + Text4.Text + "','" + Text5.Text + "','" + Text6.Text + "','" + Text7.Text …

What is the programming frontend u r using? .NET or VB6 Regards Shaik Akthar

[url]http://www.connectionstrings.com/?carrier=sqlserver2005[/url] Regards Shaik Akthar

Go to [url]www.sybase.com[/url] Download 'SQL Anywhere Studio' You'll need to register yourself, but that's easy. Then you only install the 'Network database client' (in AdaptiveServer Anywhere for Windows) may help to load the driver. Regards Shaik Akthar

Try This Code. By the r u using MS-Access as database? If not then modify the Where Clause with language specific syntax for putting the dates in the query. %%imp%% Replace the [COLOR="Red"][SALEDATEFIELD][/COLOR] with the date fieldname in your "SalesTable" table. [CODE] Set SALE = Dbase.OpenRecordset("select ProdCode, ProdName, sum(Quantity) as …

Please refer the Last comment and Attachment in the following thread posted by me. [url]http://www.daniweb.com/forums/thread154332.html[/url] Regards Shaik Akthar

Please post some sample code ur using, some sample data of the arrays. 'll try to figure out something. Regards Shaik Akthar

Dear Taher, Your entire logic is correct. there is no mistake except for the fieldnames which u r using. they have a space in between. if u need to specify fieldnames which have space then use either of the following ways to denote them. For field Student Id use rst.Fields("Student …

Since in the Branching Statement one and only one condition is executed, u can first finish getting the query. and then apply the Execute Statement. [code] Dim sql12 As String If release.Enabled = True And nonosc.Enabled = True Then sql12 = "update Passport_Release_Information_N set Ename2='" & taker.Text & "' ,Any_ID1='" …

If the remaining cells are the adjacent to each other, you can hardcode the column numbers! [code] form1.Text1.Text = MSFlexGrid1.TextMatrix(MSFlexGrid1.RowSel, 0) 'For data in Column 0 form1.Text2.Text = MSFlexGrid1.TextMatrix(MSFlexGrid1.RowSel, 1) 'For data in Column 1 form1.Text3.Text = MSFlexGrid1.TextMatrix(MSFlexGrid1.RowSel, 2) 'For data in Column 2 form1.Text4.Text = MSFlexGrid1.TextMatrix(MSFlexGrid1.RowSel, 3) 'For data …

tRY THIS [code] Dim mpaddr1 As String Dim intX As Integer Dim f As Integer f = FreeFile mpaddr1 = "No:11/19 , Anna Salai , Chennai-1" Open "C:\ADD.TXT" For Append As #f For intX = 0 To UBound(Split(mpaddr1, ",")) Print #f, Tab(1); Split(mpaddr1, ",")(intX); Tab(42); Split(mpaddr1, ",")(intX) Next Close #f …

Check out the following link. it may lead to ur problem solution. [url]http://www.freevbcode.com/ShowCode.asp?ID=3650[/url] Regards Shaik Akthar

you can't use find method on more than one column. ADO's Recordset.Find method works on one column, and one column only. why do you want to use Find? Although it is appropriate in some situations, using it to locate records is generally very inefficient, in terms of speed and memory. …

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 …

Hi! Smile4Ever, Exactly as Jx_Man said, elaborate your request dear. can't figure out ur requirement. what tabs? Any sample code u got, tried anything yet? [COLOR="Red"]Never tried = Never Know So, Please do something before post your thread. [/COLOR] A nice thing to ponder upon. Regards Shaik Akthar

U want to resize controls automatically when form resizes. Have a look at this sample project i have attached here. Observe the tag Property of each control. Changing the tag property helps in resizing/positioning as per ur requirement. u can use varWidth, varVertical, fixBottom, fixRight etc. this code can be …

Try This [code] Dim db As New ADODB.Connection Dim rc As New ADODB.Recordset [COLOR="Red"][B]db.CursorLocation = adUseClient[/B][/COLOR] db.open"Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& App.path &"\tmgmt.mdb" [/code] Regards Shaik Akthar

Sorry. Could not follow your requirement correctly. Can u plz explain more specifically with sample data. [COLOR="Green"]nw... i want to connect every individual field in my database to another corresponding field for example i hv a combo box(empname) on my form and a label for corresponding ID(empid) and in my …

U want to resize controls automatically when form resizes. Have a look at this sample project i have attached here. Observe the tag Property of each control. Changing the tag property helps in resizing/positioning as per ur requirement. u can use varWidth, varVertical, fixBottom, fixRight etc. this code can be …

Some clarification points needed regarding ur requirement. Can u plz tell the version of Crystal Reports which u r using? What is the Database and its version. Is it MS Access, if yes, which version. To view the report are u using Crystal Report ActiveX Control or CRViewer? Regards Shaik …

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 …

The code after the Exit Sub cannot be reached at all. the procedure exits at that point and the code which u have written below the Error Handler Label is never reached. That's why the error. [code] Private Sub Form_Load() On Error GoTo Form_Load_Error Set con = New ADODB.Connection con.Open …

The answer to why is it that the first one is also affected is, you get what u asked for. u might have given in the query like UPDATE table SET NAME = 'Michel Jackson' WHERE NAME = 'Mark Jackson' here not only for 2 records, if u have 10 …

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 …

post some sample code. also could not figure out the requirement exactly as what u want. ur sample code and/or elaboration of ur request will help us to provide the solution. Regards Shaik Akthar

Dear, 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 …

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 …

post the code where u r trying to create the table, i will suggest the changes where to check for table existency. Since there are several logics in which we can check for if table exist. if sample code is given, then the soln can be provided in the way …

post the sample code u tried. r u using FileSystemObject or something else we cant guess. ur sample code will help us to provide the solution. Regards Shaik Akthar

open the recordset as adOpenDynamic, adLockOptimistic adOpenKeyset, adLockReadOnly opens the recordset in readonly mode and prevents any changes to the data. Mark the solved threads as solved if they are solved. Regards Shaik Akthar

plz post the sample code u r using. will suggest u the solution. i almost have most of the reports in my projects using dot matrix printer only. many ask for it since it is economical to use it. everything can be controlled. Regards Shaik Akthar

check this url. i dont know whether it may help u or not. [url]http://activexperts.com/activmonitor/windowsmanagement/adminscripts/filesfolders/files/#DeleteAllFilesInFolder.htm[/url] Regards Shaik Akthar

if u r viewing in notepad, then it is the menu option 'Word Wrap'. when this is on then the text in one line if it exceeds the viewable area of the window it is automatically wrapped. to view without wrapping, just remove the check mark to the 'Word Wrap' …

Mr. jonifen u have a good knowledge of VB. its gr8. try to make the game more interesting. you have made the hangman to appear letter by letter. ok. if the word is only 4 letters long? what if the word would have to be 7 letters long? i am …

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 …