652 Posted Topics
 | Hi, If using Access, try using Replace Function: "Select * From MyTable Where " _ & " Replace(ProductName,' ','') Like '*" _ & Replace(txtName.text," ","") & "*'" Regards Veena  |
| | Hi, Check the [URL="http://aphnetworks.com/tutorials/vb6_webpage_authorize"]CodeListing Here[/URL] Regards Veena |
| | Hi, Add a .Bas Module to your project and Declare the Variable As Public there, Now it can be used throup out your project.. REgards Veena |
 | Hi, How are you copying the File..? You can use FSO or File I/O commands Like this : FileCopy "C:\MyExe.Exe","C:\MyExe1.Exe" Regards Veena |
| | Hi, Inserting Serial Numbers in DataReport is a Tedious Process.. What you can do is , Insert all the Records in a Temp Table which has an Auo-Gen ID.. and Build report on that TempTable.. Such Things are easily done with Crystal Reports.. (any version) Regards Veena  |
| |  |
| | Hi, I'am not sure what you actually mean by Alphabetize...? So what would this "The Law Firm of Cohen & Jaffe" look like after conversion..? Regards Veena |
| | Hi, Try This : [code=vb] Dim i As Integer Dim Mystr As String Dim ctl As TextBox Mystr = "" For i = 1 To 3 Set ctl = Me.Controls("Text" & CStr(i)) Mystr = Mystr & ctl.Text Next MsgBox Mystr [/code] Regards Veena |
| | Hi, When you re-start the computer, It takes, some time for Oracle Services to start.. So You have to wait for few minutes after Windows have started.. Also check all the Oracle Services have configured as "Automatic Start".. Regards Veena |
 | Hi, You want code for Increment or what..? If you already have code for that, then, Call Re-Arrange Code in Increment Click button... Regards Veena |
| | Hi, Write this code in Grid's Click event: [code=vb] If Grd.Row = 1 And Grd.Col > 0 Then Grd.Sort = 1 End If [/code] Click on any of the Fixed Column (at top) This allows you to Sort the selected Column. Regards veena |
| | Hi, U need to count words from a textbox or a text file or a Word file..? Regards Veena |
| | Hi, Declare the Recordset in Form Level. Open the Recordset In First Function (Or Before calling first function) Add required fields in first function. Dont close the recordset. Now call Second Function, here Dont open the recordset again.. something like this : [code=vb] Option Explicit Dim MyRS As New ADODB.Recordset … |
| | Hi, for all the option buttons set value=False: [code=vb] Opt1.Value = False Opt2.Value = False Opt3.Value = False [/code] Regards Veena |
| | Hi, I guess, it is a memory Issue, and why you open such a complicated sql query, and again add all the records, to the same table....? Your table must have become huge... Every time this report is viewed, Total records in that table(tblUnclaimed ) Doubles.. Is this what you … |
| | Hi, Though I have not understand you complete requirement, but will try to explain some work-around.. In such cases, what you need to do is Create a General Boolean array of say(54) and logically assin numbers your self.. Say ClubA=1... ClubKing=13, HeartA=14.. HeartKing=26.. and so on.. Initailly make Whole array … |
| | Re: VB6 - MySQL Hi, Try This : Msflexgrid1.TextMatrix(i, 3) = "" & rdoRS("products_publisher") Make sure, whatever ResultSet you have opened has a Field named "products_publisher" Regards Veena |
| | |
| | Re: Textboxes Hi, You need to build the message string accordingly.. Try This : [code=vb] Dim T As String T= "" If chk1.Value = vbChecked Then T = "Hi " End If If chk2.Value = vbChecked Then T = T & " Food " End If MsgBox T [/code] Regards Veena |
| | Hi, Add another MainForm, And make it MDIForm by setting the property (ISMSI=True). Create Menus to show different forms. and In MenuClick, Show the Forms (In Modal).. Regards Veena |
| | Hi, When you dont have a Primary Key, Follow this Routine: Create a Blank TempTable (Same Structure As MainTable) Insert Into TempTable Select Distinct * From MainTable Delete All Records From MainTable ReInsert Records From TempTable To Main Table Regards Veena |
| | Hi, Just use Propercase: [code=vb] Text1.Text=StrConv(Text1.Text ,vbProperCase) [/code] Regards Veena |
| | Hi, For MSFlexGrid Maximum Number of Cells (Rows X Columns) Should not Exceed 65k. So why do you need to show such Huge amount in a Single Grid.. May be you can Split the Logic (eg, Monthwise or so..) REgards Veena |
 | Hi, [URL="http://www.vb-helper.com/howto_transparent_form.html"]Try This [/URL] Regards Veena |
 | Re: Shortcut Hi, Package your Program using, INNO Set-Up, It allows you to create Shortcut on the Desktop Regards Veena  |
| | Re: vb timer Hi, keep a Form Level Variable Say Dim MyMins As Integer. Make Timer's Interval=60000 (1 min) And Increment MyMins in Timer1_Timer event.. When MyMins = 60, then 1 hour has elapsed.. Regards Veena |
| | Re: using list box Hi, Open a recordset in List's Click Event, clear all the data from Second List, and Loop thru details of the recordset's columns and add it to second list.. Regards Veena |
| | Hi, Instead of using a Set of Label Controls, Use 2 ListBoxes, (Available And Selected) (say, lstAvail, lstSel) In DoubleClick event, Add or Remove Items from the respective ListBoxes.. Say, as per your Example, Available ListBox Consists of 4 ListItems: "banana spider" "sydney funnell webb" "wofl spider" "black widow" This … |
| | Hi, Place the Image Control on the Form, Make its property : [B]Strech = True[/B] and in Form's Re-Size Event Write this Code: [code=vb] Image1.Width = Me.Width Image1.Height = Me.Height - 300 [/code] Regards Veena |
| | Hi, It is basically used to Open Recordset / Or Get the Table Structure without any Records.. As when 1 will never be equal to 2, No Records are retireived.. but you get the table structure.. Regards Veena |
| | Hi, Well... Its the other way round.. check this : [code=vb] Combo1.Clear RST.MoveFirst Do While Not RST.EOF Combo1.AddItem RST!fieldname1 RST.MoveNext Loop Combo1.ListIndex = 0 [/code] Regards Veena |
| | Hi, Try This : [code=vb] Dim ChNode As Node Dim ParNode As Node Set ChNode = TrVw.Nodes("WhateverKey") Set ParNode = ChNode.Parent [/code] Regards Veena |
| | Hi, [URL="http://www.daniweb.com/forums/thread118188.html"]Check this Thread[/URL] Regards Veena  |
| | Hi, In Such kind of Situations, You need to Use an [B][COLOR="Red"]SSTab [/COLOR][/B]Control. Place SSTab Control on the form, and add say 3 or 4 Tabs. Group all the Related TextBoxes/Controls and Move them (Cut and paste) on the Tabs.. That way, user does not get annoyed with an un-ending …  |
| | Hi, Post Some Sample Data here.. For What Input , What is the Output you want...? Regards Veena  |
| | Hi, Yes, I concur with both of the above... for Property , you can Get or Let only one Value parameter. Since, you are wanting to pass 2 parameters, Create SetLength, as a Public Sub Procedure and not a Property.... [code=vb] Public Sub SetLength(NewVal As Integer, Clear As Boolean) If … |
| | Hi, Try This : [code=vb] Dim i As Integer i=DateDiff("d",CDate(txtEntDate), CDate(txtExpDate)) [/code] Regards Veena |
| | Hi, Try This : [code=vb] Dim a as string a = Format(dt1.value,"dd-mm-yyyy") [/code] Regards Veena |
| | Hi, Have you Transferred all f your contents to array a..? If not, You need to Open the Text File First: Open "C:\MyFile.txt" For Input as #1 and Loop Thru File Contents using [B]Line Input[/B]... Regards Veena |
| | Hi, Recordset also need to be decalred as New.. [code=vb] Dim adoRecordset As New ADODB.Recordset [/code] also give Full Path of the Database in connection string.. Regards Veena |
| | Hi, Check this : [code=vb] Dim i As Integer Dim j As Integer i = 0 Do While Not rekod.EOF i= i +1 With MSFlexGrid1 .Rows = i+1 For j = 0 To rekod.Fields.Count-1 .TextMatrix(i , j) =rekod(j) & "" Next End With rekod.MoveNext Loop [/code] Regards Veena |
| | Re: sum up a fields Hi, Connection Object is not mentioned...: rsArmaster.Open "select sum(balance) as credit from ArMaster where shippercode= '" & shippercode & "'" ,[B]Conn[/B] Regards Veena |
| | Hi, Was that Complete code..? or you forgot one more Outside loop for ScaleWidth...? Regards Veena |
| | Hi, You have to give "Server" name also.. whatever service name you have given in Net Configuration : db.open "Provider=MSDAORA.1;User id=ourpro;Password=ourpro1;Persist Security info=False; Server=MyServName" Regards Veena |
| | Hi, Try this : Select CI.name,I.ServiceID,P.packagename,P.duration,P.price,I.date,I.timeIn,I.timeOut From CustInfo CI, InDate I, PakInfo P Where CI.CustID = I.CustID And I.ServiceID = P.ServiceID Order By CI.Name Recheck all your Table and Field Names.. Regards Veena |
| | Hi, For Access database(.mdb) , Like operator works with [B]*[/B] Try this : " Where P.Name Like '*" & sName & "*' " Regards Veena |
| | Hi, Once already [B]Where[/B] is given in the first statement, after that use only "And" Change the second line to : [code=vb] If Trim(strChoice) <> "" Then strtemp = strtemp & " and type ='" & strChoice & "' " End If [/code] Regards Veena |
| | Hi, in ur login form, SQL Statement, there is a Single quote before "Where" key word, check it. One more thing, never Declare and object in Module as Public and again Declare it in another Form , check RS. check this statement" [code] RS.Open ("Select * from TB_Users Where Name … |
| | Hi, Use Crystal Report. Design the Report using all the Lines and Boxes. Connect to the Database. Insert the Table where all the Details are stored. Place the Fields in Respective Columns. Now from VB, Show the CR.. Regards Veena |
| | Hi, Yes, You have to Create the procedure as [B]"Public"[/B] if you want to call it in other forms through out the project.. Regards Veena |
The End.