jireh

you have to assign a repository control, in this case a checkbox.

You can get a sample from creating a new project and add the login form.

Wrong: [code] strSQL = "INSERT INTO stok_sme (Date_time) VALUES ({^" & Format(datdw, "yyyy-mm-dd") & "})" [/code] correct: [code] strSQL = "INSERT INTO stok_sme (Date_time) VALUES (#" & Format(datdw, "yyyy-mm-dd") & "#)" [/code]

Its very simple actually to create an algorithm for that. Since you already know that its always the second sunday of the month then what you need is to get the first day of the month and determine what days is it. From there you will know how many days …

I think there's a problem in your query. 1. First you get all data that has no Bridge Number 2. Second, you join them on the table using the field Bridge Number. There's no way you could join them properly as sql cant identify properly what key should they pair …

the event of the controls were triggered when you changed their values. Try to remove their handler first before changing the values of your controls then put back the handlers once done.

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Dim numberOfSet As Integer = 5 Dim numberOfSlotPerSet As Integer = 5 Dim historyList As New ArrayList Dim numberDictionary As New System.Collections.Generic.Dictionary(Of Integer, Array) Dim randomGenerator As New Random For i As Integer = 0 To numberOfSet - 1 Dim …

Dim dblTotal As Double = 123123 * 0.05 MessageBox.Show(dblTotal.ToString("N2"))

Here's a good way to do that: 1. Create a table for generated id maintenance. The table should contain fields like... Prefix nvarchar(10) StartingNumber int NumberWidth int Example: Prefix: EMP StatingNumber: 1 NumberWidth: 6 so to generate a new employee id you just have to query the last generated number …

It seems like an assignment. Put your code here and will see what you got so far. then we will adjust your code from there.

Did you check your installer? maybe the problem is your installer... I just guess. try this out (I dont know if it will work, but have a try please) search in your old pc the 'olepro32.dll' then try to save/copy it in your new laptop... (that's what I did when …

try to create a usercontrol and put the picturebox and label there then use that as your repository in the grid.

make sure to supply the correct number of fields. the best way is to elaborate it one by one. insert into table1(field1,field2,field3) select field1,field2,field3 from table2

Put this in Data Environment Initialization [code] Connection1.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\sample.mdb" & ";Persist security Info=False" [/code] hope that would help...

I think you mean is the combo box but not the combo box in the default given. just go to the components then check the Microsoft Windows Components (I think it is sorry no VB here in the cafe) if you can see the combobox then thats it. what you …

if you just remove the data in the listview, and when your listview was not bound in the database, everytime you load the form the data you remove will back again since you dont remove it in the database... how about delete it from the database then reload the loading …

hope this qould help you...please see the attached file. you need an installer ODBC driver. this app uses mysql

Another coding tip. Instead of. If userName = "sky.light" & password = "qwerty" Then... Or If userName = "sky.light" And password = "qwerty" Then... Use "AndAlso" If userName = "sky.light" AndAlso password = "qwerty" Then... Explanation... If first condition (userName = "sky.light") is true then it will proceed to check …

DataGridView.Rows.Remove() just supply the necessary parameter. Also check the properties of the gridview.

The best way to check is... after this line of code... sSQL = "INSERT INTO Users (Username, Password) " _ + "VALUES ('" & Trim(Me.txtUser1.Text) & "', '" & Trim(Me.txtPass1.Text) & "') " Check/Get the value of sSQL and run it in the sql server. HTH

Public Class Form1 Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click Dim frm As New Form2 frm.Psize = 100 End Sub End Class Public Class Form2 Public Property PSize As Integer Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click MsgBox.Show(PSize.ToString()) End Sub End Class Hope that …

I thinks this is an assignment...'nways, use the dataset to store your data. link the dataset to your grid and pass the dataset in the form you want to open and there fill-up the textboxes from the data in the dataset. HTH.

Private Function IsNull(ByVal toBeCheckedObject As Object, Optional ByVal returnObject As Object = Nothing) As Object Try If toBeCheckedObject Is DBNull.Value Then Return returnObject ElseIf toBeCheckedObject Is Nothing Then Return returnObject Else Return toBeCheckedObject End If Catch ex As Exception Throw ex End Try End Function Then use the function to …

'This is how to search in a data table 'Make sure your condition will get only one record Dim row As DataRow() = Me.InventoryDataSet.tblInventory.Select("<enter your condition here>") if you already have the search then you can now delete the data. If row.Length > 0 Then row(0).Delete() End If Hope that …

[QUOTE=jbennet;405164]Micro Electronic Circuits and Electrical Engineering sound as if you would be using the serial port (not one of VB6s strong points) or writing embedded applications for that wouldnt something like C or Assembley be more appropriate?[/QUOTE] I think VB can do that too but I don't know how :icon_cheesygrin: …

Nice one...

Hi vee! [code] Set db = OpenDatabase(App.Path & "\COLOR.dbf", False, False, "dBase IV;")[/code] I try your code because I also use some dBase but it has an error[COLOR="red"][B] "C:\report\Color.dbf" isn't a valid path. Make sure that the path name is spelled correctly and that you are connected to the server …

The problem is in the method Calculate(). The "SelectedItem" property returns an object, which is, on this time, it returns the string you have selected and you assigned it to different type which is double. [CODE] Public Class Form1 Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load ComboBox1.Items.AddRange(New …

... or you should check first the return value of your query before assigning it.

[CODE] set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open "c:/mydata/northwind.mdb" sql = "DELETE FROM customers" sq l= sql & " WHERE customerID='" & cid & "'" on error resume next conn.Execute sql if err<>0 then MsgBox.Show "No update permissions!" else MsgBox.Show "Record " & cid & " was deleted!" end if[/CODE] Hope That Helps...

[COLOR="Red"][B]I think you're abusing this forum, lmoe23 & abu taher.[/B][/COLOR]

when you press the tab key it will jump to the next higher index from its focused control. for example. you have 3 controls and they are text1, text2, command1. if you put first the text1 in the form the tabindex of that control is zero, right? then you put …

Well I've try also the code below: [code] Dim openForm As Form = Nothing For index As Integer = My.Application.OpenForms.Count - 1 To 0 Step -1 openForm = My.Application.OpenForms.Item(index) If openForm IsNot Me AndAlso Not TypeOf openForm Is DevExpress.Utils.Win.TopFormBase Then openForm.Close() openForm.Dispose() openForm = Nothing End If Next [/code] but …

can you show how debasisdas, please?

I think you should make first an Algo on how to compute an employees payroll. If you have an algo you sure can make a functions that will compute the employees record. If the records of an employee comes from different databases then open them all and then put them …

[quote] I would like the user to be able to simply type 0900 and VB code to convert it to 09:00. Is this possible? When they type 0900, I would like the cursor to move to the next field automatically rather than having to press the Tab button on the …

Did your problem resolved?

yup please specify waht db you are using and what connection you use, is it either DAO or ADO.

Are you using vb.net?

I revised a little bit your code... What line does the error appear? sorry got no vb6 on my machine :( [code] Private Sub cmdRead_Click() Dim target As String lstName.Clear If txtIdTag.Text = vbNullString Then MsgBox "You must enter a tag number", VbInformation txtIdTag.SetFocus Exit Sub End If datStudent.Recordset.FindFirst "id …

[QUOTE=kalpanamasare;412413]HI, i hv .dsr reports which r created in crystal report 8 version.Now in my system i m hving version 11. I m able to open that report. can u plz give me solution. Thanks kalpana[/QUOTE] Post your own problem not here that looks like a reply... sorry no offense …

Basically the function/method WriteToDebugLog(ByVal str1 As String) do not accept an array data.

You have to make a new control. a combination of combox, listview, and other controls you needed. In our company we have that control... add a control that inherits the combobox (in dotnet) then we call a form (new form) were we add a litview control during runtime. so basically …

OK I get your point. It should be done like this... [code] With ri .ActiveConnection = deSub.conn .LockType = adLockOptimistic .Source = "select * from cooperatesubs" .Open Do Until .EOF .Edit .Fields("copiesremaining") = .Fields("numberofcopies") - .Fields("copiesout") .Update .MoveNext Loop .Close End With [/code] [B]Question:[/B] Are you sure with your query …

what value you were needed?

there are other ways too, like have a list of softwares you in the listview then drag and drop it in the listbox maybe.. then simple all data in the listbox were the only selected ones. :D

How did initialized the form before calling the isdisposed() function? Can you put it here the whole code of that function you are created.

Please add dot text in your code... [code] cmd.Parameters.AddWithValue("@desc", IIf(Len(Me.TxtDes.Text) = 0, "Null", trim(Me.TxtDes.Text))) [/code]

for text/string datatype use single quote [code] "Select * From MyTable Where CustomerName = '" & searhname & "' " [/code] for number datatype no single quote [code] "Select * From MyTable Where CustomerName = " & searhname & " " [/code]

In the above suggestions does it solve your problem? You must be aware also on what type of event you did put your code.