QVeen72

Hi, They are All used to read/manipulate "INI" files. See, u can open the textFile and parse, reading character by charecter or Line by line, will take good deal of time. Instead use these API's, and u can directly manipulate Required Section/String with the new one... Regards Veena

Hi Markx, Post ur own thread. ur problem may go unnoticed if u Post in other threads. And what is the Kind/Nature of business u want to develop the inventory..? Regards Veena Regards Veena

Hi, Code is all OK, Open the Connection In FormLoad. and Write the Population of textbox in CmdNext_Click event.. Declare all the Variables FormLevel. REgards Veena

HI Mona, I think we should use Max(): rs.Open "SELECT Max(Mid([rollno],5,6)) + 1 FROM Table1", cn, adOpenDynamic, adLockOptimistic And we may get Error if there are no recs in the Table, check for Null there Regards Veena

Hi, add a .bas Module to ur Project and Declare this in module: Public alt_date as Boolean. Remove all the other Declarations of alt_date in the Forms, Now u have a Public Variable that u can use across all the Forms in ur project. REgards Veena

Hi, u cannot directly use the available Marquee control, instead i will give the option to Create using StatusBar Control. Place a Timer Control on the form and set its interval=500 [inlinecode] Declare these Variables on top of form: Dim MySlNo As Integer Const Mystr As String = "THIS IS …

Hi, Wrie this wherever u want to show the Second Form: Form2.Show REgards Veena

Hi, [URL="http://www.aspnetfaq.com/default.aspx?CategoryId=52"]Read me for ASP FAQ[/URL] Regards Veena

Hi, Add Microsoft Excel References to ur peoject and chek this code: [code] Dim xlApp As Excel.Application Dim wb As Workbook Dim ws As Worksheet Dim i As Integer Set xlApp = New Excel.Application Set wb = xlApp.Workbooks.Open("C:\MyExcel.xls") Set ws = wb.Worksheets("Sheet1") 'Give your worksheet name For i=1 To 10 …

Hi, Set this property of Combobox in Propertysheet: [B][COLOR=green]Style = 2 DropDownList [/COLOR][/B] [COLOR=#008000][/COLOR] [COLOR=#008000]REgards[/COLOR] [COLOR=#008000]Veena[/COLOR]

Hi, u cant set the presicion for a Double, u have to use either [B][COLOR=red]"Format" or "Round[/COLOR][/B]" [code] Dim DblVarr As Double Text1.Text = Format(DblVarr,"0.00") Or Text1.Text = Round (DblVarr,2) [/code] Regards Veena

Hi, u can simply use the [B][COLOR=red]"Reverse"[/COLOR][/B] function. I'am not sure if Reverse function is available in VB5 or not, but we have it in VB6. Check this : [code] Dim sSQL As String sSQL=InputBox("Please enter your word") If Trim(sSQL) <> "" Then If sSQL = Reverse(sSQL) Then Msgbox "Palindrome …

Hi open a Connection(Cn), and use this code: [code] dim RST As New ADODB.RecordSet Dim sSQL As String sSQL="Select * From MyTable Where UCASE(FName) Like '*" & ucase(text1.text) & "*'" Set RST =Nothing RST.Open sSQl,Cn IF RST.EOF Then MsgBox "Records Not Found" Else MsgBox "Record Found" End IF [/code] REgards …

Hi, Click on Design and u will get the design Part (if u have designed the WebForm) But if u have downloaded from the WEB and want to open the Design window, u cannot do that, bcoz only HTML part is downloaded, .aspx's Form Design part will not be downloaded.. …

Hi Simon, make the Font of the NotePad "Courier New", it is a UniDistant font (all fonts acquire same space on screen/media), ur texts will look like Columns.. REgards Veena

Hi tgif, Add a Listbox to the form and use this code: [code] [COLOR=#0000ff]Option Explicit Dim ola As Outlook.AddressList Dim ole As Outlook.AddressEntry List1.Clear Private Sub address_book_Click() On Error Resume Next Set ola = Application.Session.AddressLists("MyContacts")[/COLOR] [COLOR=blue]For Each ole In ola.AddressEntries List1.AddItem ole Next Set ola = Nothing Set ole = …

hI, I think its a Recordset's EOF error.. May be u r not checking EOF (No records in recordset) and trying to Populate the Grid...? what point u r getting the error..? Regards Veena

Hi, u have to use this synatx in AccessSQl : [code] insert into table_name (datecolumn) values (#" & text1.text & "#) [/code] or [code] insert into table_name (datecolumn) values (Cdate(" & text1.text & ")) [/code] Regards Veena

Hi, use "Microsoft SS tab Control".. U hace to add it to ur tool box from this menu: Project>>Components.. Regards Veena

Hi, open password protected database like this : [code] CN.ConnectionString = _ "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source="& App.Path & _ "\MyDataBase.mdb" & ";" & _ "Jet OLEDB:Database Password=MyPWd" CN.Open [/code] Regards Veena

Hi, use any of these: Suppose MyStr ="XX-BP-XXXXXXXXXXXXXXX" [code] If MyStr Like "XX-BP*" Then MsgBox "True" Else MsgBox "False End If [/code] Or [code] If Left(MyStr,5) = "XX-BP" Then MsgBox "True" Else MsgBox "False End If [/code] Or [code] If InStr(MyStr ,"XX-BP")>0 Then MsgBox "True" Else MsgBox "False End If …

Hi, Have u created Function : [COLOR=red][B]ExecuteScalarCmd...?[/B][/COLOR] [B][COLOR=#ff0000][/COLOR][/B] [B][COLOR=#ff0000]I think it shud be [/COLOR][/B] [COLOR=#ff0000]sqlCmd.ExecuteScalar[COLOR=#66cc66]([/COLOR][COLOR=#66cc66])[/COLOR][/COLOR] [COLOR=#ff0000][COLOR=#66cc66][/COLOR][/COLOR] [COLOR=green]Regards[/COLOR] [COLOR=#008000]Veena[/COLOR]

Hi, Check this: crxrpt.FormulaFields.Item("myFormula").Text = "'ABCDEF'" Note the Text is First Wraped with single quote and then with double quote Regards Veena

Hi, [URL="http://support.microsoft.com/?scid=http://support.microsoft.com:80/support/kb/articles/Q95/6/40.ASP"]This is in VB6[/URL], but u can easily Convert it to VB.net. Regards Veena

Hi check this: [code] [COLOR=green]if[/COLOR] price <= money [COLOR=green]Then[/COLOR] money = money - price [COLOR=green]Else[/COLOR] TextBox1.Text = [COLOR=green]"Sorry! Not Enough "[/COLOR] [COLOR=green]End[/COLOR] [COLOR=green]If[/COLOR] [COLOR=green]If[/COLOR] money <= -1 [COLOR=green]Then[/COLOR] money = old_money [COLOR=green]End[/COLOR] [COLOR=green]If [/COLOR] [/code] Regards Veena

Hi, Check this: crxrpt.FormulaFields.Item("myFormula").Text = "'ABCDEF'" Note the Text is First Wraped with single quote and then with double quote Regards Veena

Hi, use a listView or a MSFlexGrid Control.. Regards Veena

Hi, use this code: con > Open Connection object [code] Dim ssql As String Dim rs As New ADODB.RecordSet ssql = "Select * From MyTable Order By MyField" Set rs = Nothing rs.CursorLocation = adUseClient rs.Open ssql, con Set DataGrid1.DataSource = rs DataGrid1.Refresh [/code] I dont know how to Suppress …

hi, Create a password Protected access database, Save Installation Date and End date. In program Check for: If System date> enddate or systemdate> (installationdate)+30 then Give message and end the program. Here u have to be carefull, In case user changes the Systemdate and can continue using it. It is …

Hi, DLL->Dynamic Link Library. Suppose u want to connect to a database or generate a Report, u need some Objects, These Objects allow u to connect to DB's or do whatever task, They are called as Dll's. They have certain Properties, Members,Objects ,Methods. They act as a Layer between VB …

Hi, Set Form's Property: WindowState=Maximized Compile and Make the project's Exe. Create ShortCut to the exe Regards Veena

[quote=AV Manoharan;406299] [B]1 st - The DAO code[/B]: Dim db as Database Dim rs as DAO.Recordset Set db = CurrentDb( ) Set rs = db.OpenRecordset(“tblPeople”) rs.Edit rs(“TextFieldName”) = “New Value” rs.Update [/quote] Hi Manohar, In whole of ur post, u did not Mention opeing of DB in DAO method, Set …

Hi, What report u r using? CR or Data Report or Excel report..? Regards Veena

Hi, ur code looks alright here... Where is ur SubString..?? Regards Veena

Hi nuin, After adding Data To the Table, u will have To Refresh, then only newly added data will show up. Check this : [code] Data1.Recordset.AddNew Data1.Recordset.Field(1).Value = InputBox("code") Data1.Recordset.Update [B]Data1.Recordset.Refresh[/B] [/code] Regards Veena

Hi, U can Place a Label Control at the Bottom/Top of the Form, and Write code in Got Focus of all the Controls to change the Label of the Caption. It acts as a ToolTip. Either u can move the Label around the Control or Place it Fixed. Regards Veena

Hi, Make lbl2's Property MultiLine = True and Change ur Code: [code] Do while not ts.AtTheEndOfStream If Trim(Mfgno) = "" Then lbl2.Caption = lbl2.Caption & " Error line=" & line End If loop [/code] Regards Veena

Hi Suneel, few of my Favorites: "Mastering VisualBasic 6.0" by [B]Evangelos[/B] Petroutsos Teach yourself VB6 Series Sam's Publications REgards Veena

Hi Guru, use [COLOR=red][B]UBound(Arr) [/B][/COLOR] Gives u Index of Last item in that Array REgards Veena

Hi, What type of Variable is "Mfgno"...? If String Check for "" If Numeric check for Zero: [code] If Trim(MfgNo) ="" Then lbl1.Caption = "Error Else lbl1.Caption = "NoError End If [/code] Regards Veena

Hi, along with the above code, Create a seperate Attacmnet object, check this code: [code] Dim OAttach As Outlook.Attachment If Not IsMissing(MailAttach) Then Set OAttach = OutLookMail.Attachments.Add(MailAttach) End If [/code] Regards Veena

Hi, Create a [B][COLOR=red]"Primary Key"[/COLOR][/B] for that Serial Number Field. and If u want , u can make it "AutoGenerate", If u insert a Record into that table, Serial Number will be automatically assigned to that record. REgards Veena

Hi, Change this: Text5.Text = Data1.Recordset! To this : Text5.Text = Text5.Text & " " & Data1.Recordset! Be carefull there is a limitation to the size of data that can be held in a textbox (64k) If u want to view all the data in textbox, set this property MultiLine …

Hi, I have modified ur code. Check this: [code] Option Explicit Dim HdrFName as String Dim DatFName As String Private Sub CmdChkFile_Click() If Trim(DatFName) ="" Then Exit Sub If Trim(HdrFName) ="" Then Exit Sub Dim FileName As String Dim a As String, b As String Dim fs As FileSystemObject Dim …

Hi, Use This Code: [code] Dim i As Integer Dim J As Integer Dim k ' For i = 1 To UBound(SArray) For J = i To 1 Step -1 If Val(SArray(J)) < Val(SArray(J - 1)) Then k = SArray(J - 1) SArray(J - 1) = TArr(J) SArray(J) = k …

Hi tgif, In Command Click, before u call the above module use InputBox say, [CODE] Public EMailID as String EMailID = InputBox("Enter EMail ID") If Trim(EMailID) <> "" Then 'Call The Send Function End If and change this to: OutlookMail.To = EMailID [/CODE] Regards Veena

Hi, use this code: [quote] Dim iPos As Integer iPos = Instr("ABCDEF","B") If iPos>0 Then MsgBox "Found at " & ipos Else MsgBox "Not Found" End If [/quote] Regards Veena

Hi, Place the Timer in any of the Form, and set its "Interval" 10000 (for 10 Seconds) Write the Checking code in Timer1_Timer Event, Make the Event as Public and u can access it from every where. If u have a MDI Form, then forst place a Frame Control and …

Hi, Add [COLOR=red]"Microsoft ActiveX objects 2.0"[/COLOR] References to the project. use this code: [CODE] Dim rs As New ADODB.Recordset Dim AC As New ADODB.Connection With AC .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\MyDB.mdb;Persist Security Info=False" .Open End With ssql = "Select * from MyTable" Set rs=Nothing RS.Open ssql,AC If RS.EOF Then ' No …

Hi, Open the RecordSet from the query and Populate Access. Check this Code: RST>Recordset Open [code] Dim i As Long i=0 Do While Not RST.EOF i=i+1 ExelWS.Cells(i, 1).Value = RST(0) ExelWS.Cells(i, 2).Value = RST(1) ExelWS.Cells(i, 3).Value = RST(2) ExelWS.Cells(i, 4).Value = RST(3) ExelWS.Cells(i, 5).Value = RST(4) i=i+1 ExelWS.Cells(i, 4).Value = …