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...