QVeen72

Hi, It should Retrieve all Distinct Column from the table.. Can you post some Sample data as of what kind of string is left out....? Regards Veena

Hi, You need to First Create a Public User, in "SQL Server Authentication Mode" . and give permission to the database. Also Select Default Database for this User. And You need to login thru this User, then you can access SQL Server Database Tables.. REgards Veena

Hi, In Exit button, along with unload give "End" [code=vb] Private Sub cmdExit_Click() Unload Me End End Sub [/code] REgards Veena

Hi, It is not a type library, Go to menu : Projects >> Components Select [B]Microsoft Tabbed Dialog Control 6.0[/B] click OK, and add it on the form.. REgards Veena

Hi, Try this: [code=vb] Dim i As Long For i = (lstFrom.ListCount - 1) To 0 Step -1 If lstFrom.Selected(i) = True Then lstTo.AddItem lstFrom.Column(0, i) lstFrom.RemoveItem i If lstFrom.ListCount = 0 Then Exit For End If Next i [/code] Dont assign Listcount to a variable and loop.. That's because, …

Hi, You mean, you want both Enum and ComboBox to be filled with data from the database table...? Regards Veena

Hi, [QUOTE=Loony064;634710]Hey guys [code] confirm = MsgBox("Are you sure you want to alter this record", 1 + 48, "Please Confirm") If confirm = 1 Then ' get new values for variables row.employee_ID = CStr(Employee_IDTextBox.Text) row.allowances_ID = Allowances_IDTextBox.Text row.allowances_amount = Allowances_amountTextBox.Text Else : MsgBox("Action cancelled!") EndIf [/code] [/QUOTE] In above code, …

Hi, For the ADODC, have you set the Database and Record source property...? And why "Update" without Addnew or Edit..? Regards Veena

Hi, You need an ADO Connection object and a Recordset object . First open the Connection to the Oracle database. and open a Recordset with this Query: "Select * From Login_Info_Table Where UserName = '" & txtUser.Text & "'" And Pwd = "'" & txtPwd.Text & "'" If the above …

Hi, Use [B]DateAdd [/B] function [code=vb] Dim TDate As Date TDate = CDate("01-06-2008") MsgBox DateAdd("d", 15, TDate) [/code] Regards Veena

Hi, Make TextBox's property : MultiLine = True ScrollBars = 3 ' Both Regards Veena

Hi, I Guess, you also need to add this reference: Microsoft ActiveX Data Objects 2.5 Library (or later version) Regards Veena

Hi, Wrie this code in Got focus event of combo box: [code] [COLOR=green]Private[/COLOR][COLOR=green]Sub[/COLOR][COLOR=green] ComboBox1_GotFocus([/COLOR][COLOR=green]ByVal[/COLOR][COLOR=green] sender [/COLOR][COLOR=green]As[/COLOR][COLOR=green]Object[/COLOR][COLOR=green], [/COLOR][COLOR=green]ByVal[/COLOR][COLOR=green] e [/COLOR][COLOR=green]As[/COLOR][COLOR=green] System.EventArgs) [/COLOR][COLOR=green]Handles[/COLOR][COLOR=green] ComboBox1.GotFocus[/COLOR] SendKeys.Send([COLOR=green]"%{down}"[/COLOR]) [COLOR=green]End[/COLOR] [COLOR=green]Sub[/COLOR] [/code] This will open up the drop down list Regards Veena

Hi, Try this code: [code=vb] Dim AConn As New ADOdb.Connection Dim ACat As New ADOX.Catalog Dim ATbl As ADOX.Table Dim ACol As ADOX.Column ' AConn.Open("Provider='Microsoft.Jet.OLEDB.4.0';" _ & "Data Source= C:\MyDB.mdb;") ACat = New ADOX.Catalog ACat.ActiveConnection = AConn ATbl = ACat.Tables("MyTable") ACol = ATbl.Columns.Item("MyColName") ACol.Properties("Jet OLEDB:Allow Zero Length").Value = True ACat …

Hi, Keep 2 FormLevel Variables for OldLoc. and Save them.. Initally, When the Game starts, assign Default Position to Old Loc, and keep on assigning the variable whenever, the position changes. Cant help much as I havent seen your code.. Regards Veena

Hi, Try this SQL Statement: [code=vb] SELECT REPLICATE('0', 4 - DATALENGTH(MyCol)) + MyCol AS TempCol FROM MyTable [/code] Note: You will get Null, if the Column Length Exceeds 4 chars.. It is always a Good Practice, to first Check the Maximum Length of the Column, and write SQL statement accordingly.. …

Hi, [URL="http://publib.boulder.ibm.com/infocenter/db2luw/v8/index.jsp?topic=/com.ibm.db2.udb.doc/ad/t0007412.htm"]Check This for Starters[/URL] Regards Veena

Hi, I guess [b]D-O-B[/b] is the culprit.. Field names containing special characters and spaces need to be enclosed in square bracket.. change your sql statement like this : [code=vb] cmd.CommandText = "Select Name,Location,NID,Passport_No,Pin,[D-O-B], Aet_Join_Date,Infy_Mail_Id,Ph_Res,Ph_Off,Ph_Cell,Address,Status from Personal_Info where Emp_No = " & CLng(sEmp) [/code] also check all the field names... Regards …

Hi, Open the SetUp.lst file in note pad. change "DLLselfregisterEX" to "DLLselfregister" Save and run.. REgards Veena

Hi, Set Property [B]Sorted[/B] =True for the ComboBox.. Regards Veena

so... what was the question...?

Hi, I Guess, [URL="http://www.mathworks.com/access/helpdesk/help/techdoc/index.html?/access/helpdesk/help/techdoc/ref/num2str.html&http://www.google.co.in/search?hl=en&q=Num2str&btnG=Search&meta="]this will help you[/URL] Regards Veena

Hi, Why use API's..? Just Populate List Box with Serial Numbers and List Items..... Use "Courier New Font" (Uni-distant font) for the List Box.. and check this : [code=vb] List1.AddItem "1" & Space(3) & "ABC" List1.AddItem "2" & Space(3) & "DEF" List1.AddItem "3" & Space(3) & "TTT" List1.AddItem "4" & …

Hi, Can you Post your code (Saving Part) here..? so that somebody can point out the problem... Regards Veena

Hi, To Show all the Records from the Table, you need to use a Table like Control.. eg.:DataGrid or FlexGrid or VFlexGrid.. Texbox, has a Limit and it is not appropriate and readable to show Table like structures.. Regards Veena

Hi, To call a Procedure from another form, the Procedure need to be declared as [B]Public[/B] Regards Veena

Hi, You can do that, for that, open Connection to any one database, and access the table of second database through that conn.. I will give you example of access: Say you have opened connection for c:\db1.mdb and you want to link from a table from c:\db2.mdb.. you can use …

Hi, In "Save" button of First Table, Insert same Data in Second table as well.. Say, if ID is a PK in your first table, and Second table is same structure as first, then after adding(Save) record, you can run an Insert statement like this: [code=vb] sSQL = "Insert Into …

Hi, In textBox(Multi Line =True), if you have stored Line by line , then split the text with Line seperator: Dim MyArr MyArr = Split (Text1.Text, vbCrLF) and loop through MyArr Change the line seperator(vbCrLF), accrdingly.. Regards Veena

Hi, When you are using a Script Control, you need to Create Function in the Script before EVAL.... [URL="http://www.vb-helper.com/howto_evaluate_expressions_script_control.html"]Check this classic example here [/URL] Regards Veena

Hi, Before closing, You need to save the status of the RadioButton in some place .. eg: Textfile or some database. and in formload event of the Form, read the file/database and get the status accordingly.. REgards Veena

Hi, Place a Label on the Cotrol, Place a Timer on the form, set its Interval to = 1000 (1 sec). First Disable the timer. Start the Timer, when the Video starts, and Not the Initial Time say MyTime In Timer1_Timer event, Refresh the Label with: label1.Caption = Format(Now-MyTime,"hh:mm:ss") Regards …

Hi, Just use this : [code=vb] Date = CDate("12/22/2007") [/code] Regards Veena

Hi, Check the connection string here : [url]http://www.connectionstrings.com/?carrier=sqlserver[/url] It is slightly different there.. Regards Veena

Hi, How you have opened the Recordset..? and what is the Datatype of First Field in the Table..? Regards Veena

Hi, You need to use [b] SHAPE Command [/b] to print Heirarcheal data (master/detail).. Check this M$ Link: [url]http://support.microsoft.com/kb/q251329/[/url] Regards Veena

Hi, Access 2000 And Greater Versions Cannot be bound to DataControl Control In VB6. For that u will have To Use ADODC Control. Regards Veena

Hi, Check the MSDN Help: For each property, you can specify an integer between -32768 and 32767 inclusive. Regards Veena

Hi, Use ADO Objects with [URL="http://www.connstr.com"]Check Connection strings here[/URL] Regards Veena

Hi, In your database table, if UsageID is Text/String, then you need to wrap the value with single quotes... strSQL = "SELECT * FROM Usages WHERE UsageID = '" & List2.Text & "'" Also check Database File (In case of access) is properly set.. Regards Veena

Hi, Try : LBound(MyArray) UBound(MyArray) Regards Veena

Hi, Try this : [code=vb] Private Sub RemoveChildNode(tvTree As TreeView, strName As String) Dim i As Integer Dim NFound As Boolean NFound = False For i = tvTree.Nodes.Count To 0 Step - 1 If Trim(strName) = Trim(tvTree.Nodes(i).Text) Then TvTree.Nodes.Remove TvTree.Nodes(i) NFound = True Exit For End If Next i If …

Hi, for all types of Connection Strings check this : [url]www.connstr.com[/url] Regards Veena

Hi, Not sure, how you are storing FingerPrint... but this is the query tp get Duplicate Records.. Modify the way you want.. Say, you are searching for duplicate of [b]MyCol[/b] field in Myable.. Check this query: Select MyCol , Count(*) From MyTable Group By MyCol Having Count(*) >1 Regards Veena

Hi, Try this : [code=vb] With datAcademic.Recordset .Bookmark = bmark .FindFirst ("Adm_no Like '*" + var + "*'") [/code] Regards Veena

Hi, What kind of numerical solvers..? You can give some examples.. so somebody can help you.. Regards Veena

Hi, Check this link: [URL]"http://www.gamerzplanet.net/forums/visual-basic/247884-settings-file-reader-writer-vb2008.html"[/URL] Regards Veena

Hi, Try this : [code=vb] Do While Not rs.EOF Let PNUM(1, ctr) = rs!LastOfEMPCODE Let PNUM(2, ctr) = rs!NEXTDUEDATE Let PNUM(3, ctr) = rs!LASTPERFDATE Let PNUM(4, ctr) = Eqnum ' rs.MoveNext Let ctr = ctr + 1 If (rs!NEXTDUEDATE > PNUM(2,ctr)) Then Exit Do End If Loop [/code] Regards Veena

Hi, Are you talking about this :...? [url]http://www.codeproject.com/KB/miscctrl/propertytree.aspx[/url] Regards Veena

Hi, Try this : SQL = "SELECT 'MyTableA' As TabName, A.* FROM tabA A UNION ALL SELECT 'MyTableB' As TabName, B.* FROM tabB B ORDER BY field" Set rs = db.OpenRecordset(SQL) RS("TabName") Gives you the Table Name Regards Veena