Well since i have tried to go a different route Now I'm dtuck with filling a dtagrid witrh the table contents. Then once that is working I would like to use a sql search to get the records i want here is what I have now Option Explicit ' Create a Recordset Dim rst As ADODB.Recordset Private Sub Command1_Click() Set rst = New ADODB.Recordset rst.CursorLocation = adUseClient ' Add columns to the Recordset rst.Fields.Append "Customer ID", adInteger rst.Fields.Append "First Name", adVarChar, 40, adFldIsNullable rst.Fields.Append "Last Name", adVarChar, 40, adFldIsNullable rst.Fields.Append "Address", adVarChar, 60, adFldIsNullable rst.Fields.Append "Phone Number", adInteger ' Open the Recordset rst.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Testing\v003\databases\db1.mdb; Persist Security Info=False" ' Populate the Data in the DataGrid Set DataGrid1.DataSource = rst End Sub A simple datagrid, command button on a form

This error comes when using the adodc1.recordsource = Runtime error '91' object varible or With block varible not set This line is highlighted in Yellow Adodc1.Recordset.Requery the other section ( built my own connection results in nothing ) Help is great only if you ask correctly :) -- modified at 14:44 Sunday 5th February, 2006

I'm trying to figure out why I keep getting a error searching my database with ado. Here is my search button Private Sub CmdSearch_Click() Dim SQlnameSearch As String SQlnameSearch = txtSearch.Text Adodc1.RecordSource = " Select * FROM Customers WHERE (ContactLastName)= '" & SQlnameSearch & "' " Adodc1.Recordset.Requery **<-- errors here** Adodc1.Refresh **<-- if the above line is commented out it errors here** ' want to fill the datagrid with the results of the search from above. DBGrid1.Visible = True End Sub Now if i build mt own connection like so Dim cnn As New ADODB.Connection Dim rst As New ADODB.Recordset Dim fld As ADODB.Field ' Open the connection cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & App.Path & "\databases\PoolApp.mdb" strSearchCustomer = FrmSearch.Searchtxt.Text rst.Open _ "SELECT ContactLastName FROM Customers WHERE ContactLastName = '" & strSearchCustomer & "' ", _ cnn ' Print the values for the fields in ' the first record in the debug window For Each fld In rst.Fields MsgBox rst.Fields.Count <-- I get 1 record but unable to fill the datagrid. Next ' Close the recordset rst.Close Any help would begreatly appreciated Help is great only if you ask correctly :)

Sounds like Homework !!!! how are you filling the grids in the first place? a database?, from code? Help is great only if you ask correctly :)

AS for your html link are you using Vb 6? if so, you can do this ShellExecute Me.hWnd, "Open", "PAth to File\Doc.html", "", "", 1 put this into a Click event Help is great only if you ask correctly :)

hi all ihave 2 questions # 1 I have a application that allows users toswipe their ID badge to log them into or out of a system. problem is, i put this code into the text_Change () event. which works fine. BUT if the user forgets their badge, i also have it set up to allow them to enter a password so they can manually log their selves in or out. the app won't take the password because of the text_Change() event. how can i work around this? # 2 if the ser swipes their card, and answers NO to the first message box and YES to the second, ( i have to have th second nag msgbox,to be sur the user didn't mess up)the code follows correctly it then goes to a function tha strips the delimitting chars. when it comes back, it doesn't return to the code spot it left off at. it returns to the beginning of the text_Change () Event and re-tests the value in te textbox. but if does retain te value of the textbox, and it flashes the message Wrong messagebox (see below) here are the order of events with a card swipe. 1 checks te string for chars. 2 asks if user is logging In? 3 if user answers NO and then YES to the next message box 4 goes to replace charaters Function 5 returns to the top of the event 6 tests the txtPassword again ? <--- why? 7 goes to the "message Wrong " 8 returns to where it left off in the code after it left to the function 9 continues to log te user out the app needs to allow a card swipe and a manual password entered i would like to keep the card swipe automation if possible or do i have to put this into a click Event and forget about te auto card deal? here is the code from the text_Change()Event Private Sub txtPassword_Change() 'test the input from the user to see if tey swiped their card correctly If Left(txtPassword, 1) = ";" And Right(txtPassword, 1) = "?" Then Dim cardID As String Dim X As Integer ' x is te user response to the message box X = MsgBox("Are you logging In ?", vbYesNo) **Question 1** If X = 6 Then Load frmCardLogIn cardID = txtPassword.Text frmCardLogIn.txtPassId.Text = cardID frmCardLogIn.LogOutBtn.Visible = False frmCardLogIn.Label2.Visible = False frmCardLogIn.Show Unload Me Else 'If X = 7 Then Dim Y As Integer ' y is the answer to the message question Y = M

you could put a textbox on your form, and in the code, use the textboxes text property in your filter. create a varible and set the val(textbox) = to your varible and search that way ex. dim SQLSearch as integer sqlSearch = Val(Text1.Text) "SELECT Whatever FROM Wherever WHERE Field LIKE '%" & SqlSearch & "%'" the more you type in the textbox, the closer your search will be please note the use of the % in the SQL Query you could even put your search into the textboxes textchange () if your using ado ex. ado.recordsource = "SELECT Whatever FROM Wherever WHERE Field LIKE '%" & SqlSearch & "%'" ado.refresh so as you type, the the search gets smaller Hope this helps Help is great only if you ask correctly :)

that did it thank you the insert statement is like this INSERT INTO Software SET (Name, Description, Version, ProductKey, Location ) Values ( blah blah blah) :) Help is great only if you ask correctly :)

hi all this is killing me this statement appears to be correct but not sure strSQLUpdate = "UPDATE Software SET ((Name), (Description), (Version), (ProductKey), (Location)) = (['" & n & "'] , ['" & d & "'], ['" & v & "'], ['" & p & "'], ['" & l & "']) WHERE (Name) = {'" & n & "'}" i have tried with ( ) & with out { } as well VB6 app to ms access.mdb please help thank you :confused: Help is great only if you ask correctly :)

here's te deal i have a form that has 2 buttons on it. i need to call the buttons click event from a different form in order to run the event i would just put the code into the form_load event but the form has a duel purpose so i can't do this. so in VB.NET, how do we call the click event form a different form i have tried the performclick() and this doesn't seem to work . here is a sample of code Private Sub EnterBtn_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles EnterBtn.Click ' these next 2 lines remove the unwanted characters from the ' beginning and end of the card value in this case, the card ' values are 4 numbers delimited with a ; at the beginning ' and a ? at the end txtPassID.Text = txtPassID.Text.Remove(0, 1) txtPassID.Text = txtPassID.Text.Remove(4, 1) '********************************************************************** CIfrm.txtPassIdSearch.Text = txtPassID.Text CIfrm.SearchIDBtn.PerformClick()<-- not performing as it should CIfrm.ShowDialog(Me) Me.Close() End Sub i have to different searches being performed depending on what form the user uses. any help would be great Help is great only if you ask correctly :)

i copied and pasted the code i trid putting " i " after next but i still get the same results in vb6 i could do this ADODeptLocation.Refresh ADODeptLocation.Recordset.MoveFirst CboDepartment.AddItem ADODeptLocation.Recordset("Department") CboLocation.AddItem ADODeptLocation.Recordset("Location") 'loop through for all the records Do While Not ADODeptLocation.Recordset.EOF CboDepartment.AddItem ADODeptLocation.Recordset("Department") CboLocation.AddItem ADODeptLocation.Recordset("Location") ADODeptLocation.Recordset.MoveNext Loop CboDepartment.ListIndex = 0 CboLocation.ListIndex = 0 and this would fill the combo box list items Help is great only if you ask correctly :)

So your textboxes are bound to a table. Are yo trying to add a new record ? is this why your clearing the textboxes? BTW if you clear text boxes ty not to use the "" use this ex. textbox1.text =vbnullstring vbnullstring is a faster and mre efficient way of clearing a TEXTbox or checking the contents of a text box post some code so we know what your trying to do... Help is great only if yu ask correctly

this is whaT I have.... Dim i As Integer Do While Not rs.EOF For i = 0 To rs.Fields.Count - 1 DepartmentCbo.Text = DepartmentCbo.Text & rs.Fields("Department").Value LocationCbo.Text = LocationCbo.Text & rs.Fields("Location").Value Next rs.MoveNext() Loop What am i missing??? the result is the contents are filled next to one another not listed like this museumplanetariumfloor1floor2 it should b like this museum planetarium floor 1 floor2 etc. Help is great only if you ask correctly

I need help finishing the code t fill the labels on my form with the search results. this i what i have (Not even sure this is gonna work as well ) Dim Cnxn As New ADODB.Connection Dim cmdChange As ADODB.Command 'Connection String Dim strCnxn As String 'SQL Query Dim strSQL As String 'search criteria Dim strSearchLName, strSearchFName As String Dim Now As DateTime Dim UserPassID As Integer UserPassID = Val(lblPassID.Text) strSearchLName = txtLName.Text strSearchFName = txtFName.Text ' define strSQL to insert the fields strSQL = "SELECT * FROM Contacts WHERE (LName) = '" & strSearchLName & "' AND (FName) = '" & strSearchFName & "'" strCnxn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\RMSC LOGIN\MYDataBase.mdb;Persist Security Info=False" Cnxn = New ADODB.Connection Cnxn.Open(strCnxn) cmdChange = New ADODB.Command ' Create command object cmdChange.ActiveConnection = Cnxn cmdChange.CommandText = strSQL cmdChange.Execute() ' execute the SQL command ' Fill the Labels with the Search results **This is where i Fail !!!!!** Cnxn.Close() ' Close everything Cnxn = Nothing Any Help would be appreciated Thank you the detail!!!! form name Contactinfo labels on theForm as follows.... lblFName lblLName lblAddress lblCity lblState lblZip lblPhone lblEmail lblPassID if possible this is gonna run in button Click event Thank You Scholars!!!:laugh: Help is great only if yu ask correctly

hi all i'm using VB.Net and i have a form that i need to have the results displayed into labels that populate the form. this is what i have so far **************** CODE ***************** Private Sub SearchTBBtn_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles SearchTBBtn.Click Dim Cnxn As New ADODB.Connection Dim cmdChange As ADODB.Command 'Connection String Dim strCnxn As String 'SQL Query Dim strSQL As String 'search criteria Dim strSearchLName, strSearchFName As String Dim Now As DateTime Dim UserPassID As Integer UserPassID = Val(lblPassID.Text) 'Now = DateTime() ' Now = Format(Now, "h:nnAM/PM") strSearchLName = txtLName.Text strSearchFName = txtFName.Text ' define strSQLUpdate to insert the fields strSQL = "SELECT * FROM Contacts WHERE (LName) = '" & strSearchLName & "' AND (FName) = '" & strSearchFName & "'" strCnxn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\RMSC LOGIN\MYDataBase.mdb;Persist Security Info=False" Cnxn = New ADODB.Connection Cnxn.Open(strCnxn) cmdChange = New ADODB.Command ' Create command object cmdChange.ActiveConnection = Cnxn cmdChange.CommandText = strSQL cmdChange.Execute() ' execute the SQL command ' Fill the fields with the results '************* This is where i have a problem Dim rsContact As New ADODB.Recordset rsContact = cmdChange lblPassID.Refresh() lblLName.Refresh() Cnxn.Close() ' Close everything Cnxn = Nothing End Sub *************** END CODE ****************** i guess i don't knowhow to populate the labels with the results of cmdChange any help would be great thank you Help is great only if yu ask correctly

hi all i have 2 forms i need to have the contents of form1 transfered to form2. in vb6 it was as simple as loading the form and setting the controls on that form = the controls on the active form. ex. frmContactInfo.txtFName.text = txtFName.text WHy oh why did they remove this simple yet nice way of doing this? any easy way of doing this in VB.Net? my form names are Name = form 1 ContactInfo = form 2 each have 2 text boxes a example would be nice thank you in Advance Help is great only if you ask correctly

You need to specify what you want to do, no-t throw out bits and opeices of what yu want to do you asked for an example that is what you got here is the hello world example #include main() { cout << "Hello World!"; return 0; } One more thng, you need to compile any .cpp , .h ,.c file in order for it to run

visit here http://www.redhat.com/docs/manuals/linux/RHL-9-Manual/pdf/rhl-ig-x86-en-9.pdf pdf format need adobe reader to view

first as a suggestion, dump red hat 7 and downlod fedora core II . much nicer as it is a lot like XP second: figure out which one OS you want to have loaded on your hard drive. messing around like his could mess up your HD permantly!!!! the easiest way is to install WinXP first. make sure you have room for your linux install. min of 6-8 Gb depending on what you install from the linux distro. if you don't have enough room on your HD, i would suggest some type of disk utility to remove the D & E partitions. or, tooos in your XP CD and do a fresh install. when it comes to partition size, create a partition size of 10 GB for windows. lave the rest free unpartitiond space. do your install of Xp and then put in your Linux Cd and follow the screen prompts. if your not sure, download the redhat install manual from their site. when it comes to the partitioning, choose automatic. if you want to do the manual way, read the following ********************************************* • A swap partition (at least 32MB) — swap partitions are used to support virtual memory. In other words, data is written to a swap partition when there is not enough RAM to store the data your system is processing. The size of your swap partition should be equal to twice your computer's RAM, or 32MB, whichever amount is larger. For example, if you have 1GB of RAM or less, your swap partition should be at least equal to the amount of RAM on your system, up to two times the RAM. For more than 1GB of RAM, 2GB of swap is recommended. Creating a large swap space partition will be especially helpful if you plan to upgrade your RAM at a later time. • A /boot partition (100MB) — the partition mounted on /boot contains the operating system kernel (which allows your system to boot Red Hat Linux), along with les used during the bootstrap process. Due to the limitations of most PC BIOSes, creating a small partition to hold these les is a good idea. For most users, a 100MB boot partition is sufcient. Warning Do not create your /boot partition as an LVM partition type. The boot loaders included with Red Hat Linux cannot read LVM partitions and you will not be able to boot your Red Hat Linux system. • A root partition (1.7-5.0GB)—this is where "/" (the root directory) will be located. In this setup, all les (except those stored in /boot) are on the root partition. A 1.7GB root partition will permit the equivalent of a personal desktop installation (with very little free space), while

tried both, no avail the key does exist cuz i copied and pasted the key into my script has to be some where else in the registry that changes the PC name