Jx_Man

Andreret : absolutely right..

not clear..more information friend... User input current username in form1 and directed to form2.. In form2, Do you want to insert new data or you want to edit current user data? if u want to edit current data in form2 then you should to use update query.

so, what u want to do exactly? you want to make a procedure? >>make the program do something without the user doing anything [CODE]Private Sub First() Msgbox ("Hello World") End Sub[/CODE]

what are you used to connect? adodb?oledb?adodc control? also post your code..show some effort first..how far u doing this..

trilok31 : [URL="http://www.daniweb.com/forums/announcement58-2.html"]you need to read the rules about posting an answer[/URL]

try this : [CODE]Private Sub Form_KeyPress(KeyAscii As Integer) MsgBox KeyAscii End Sub[/CODE]

also to asign database field to dtpicker [iCODE]DTPicker1 = rs.Fields("birthday")[/iCODE]

you must to change data type on database.. also i want to know which line of your code that error came up... about text box input, you can set text box to not allowed an input except a numeric input. so text box just accept a numeric input. [CODE]Private Sub …

then mark as solved.

your post is not clear. i can't understand what do you want to do. 1. you want to insert data in textbox to database? 2. what kind of database?access? 3. how far you doing this?

check your input with your data type in database. like date, your input must be suitable with database type.

see if this help : [CODE] Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim sql As String Dim strjobno As String Dim Cn As OleDb.OleDbConnection Dim myCom As OleDb.OleDbCommand Cn = New OleDb.OleDbConnection("PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Hardware.mdb") Cn.Open() sql = "sselect MAX(jobno) from repair" myCom = New OleDb.OleDbCommand(sql, …

>>Does it requires the Complete change in the code of the project or only a little changes maybe yes, but it's not a big problem if you have working a lot with other DBMS.. see this thread : [URL="http://www.daniweb.com/forums/thread63266.html"]One[/URL] [URL="http://www.daniweb.com/forums/thread66897.html"]Two[/URL] [URL="http://www.daniweb.com/forums/thread142232.html"]Three[/URL] see this site : [URL="http://www.vb6.us/tutorials/oracle-and-visual-basic-using-ado"]One[/URL] [URL="http://support.microsoft.com/kb/176086"]Two[/URL] [URL="http://www.vb-helper.com/howto_ado_oracle.html"]Three[/URL] [URL="http://www.freevbcode.com/ShowCode.asp?ID=3170"]Four[/URL] [URL="http://www.johnsmiley.com/cis18/Smiley004.pdf"]Pdf …

wow..its realy unsecured. that mean anybody can access a program. say, if andre has already registered as user then every you open the program, he directly enter without login. so, what about another user open this program? another user can directly access program too.. i suggest to load a user …

what your code in vb6 for vb6.Setitemdata?

what error said? in which line?

just save the path. usually as u save other records. use a string data type.. when you load the path from database then u can show it in picture box.

so you use adodc control? post your code..how far u do this..

your information is not clear..and please use code tags

first, Add reference before do all codes.. Click on Project->Reference, Find for Microsoft ActiveX Data Object 2.5 Library and select it. this followwing code to connect vb6 with MS SqlServer Create 1 button on your form [CODE]Public Con As New ADODB.Connection Public rs As New ADODB.Recordset Private Sub Command1_Click() If …

use tree view and list view.

this following code for editing data. change as you needed. [CODE]' Edit Query SQlQuery = "UPDATE Data " & _ " SET Name ='" & Trim(txtName.Text) & "'," & _ " Address ='" & Trim(txtAddress.Text) & "'," & _ " TelpNo ='" & Trim(txtTlpNo.Text) & "'," & _ " Email …

show you effort first.

try this following code : [CODE]Program Decimal_Binary; Uses WinCrt; Var Dec,Deci: Integer; Bin: String; Ul:Char; Begin Repeat Clrscr; Writeln('Decimal to Binary Convertion Program'); Writeln('======================================'); Writeln; Write('Input Decimal Number: ');Readln(Dec); Deci:=Dec; Bin:=''; Repeat If(Dec Mod 2 = 0) Then Bin:='0'+Bin Else Bin:='1'+Bin; Dec:=Dec Div 2; Until Des=0; Writeln; Writeln(Deci,' Decimal = …

[CODE]Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim x As Double Dim i As Integer Dim sortarray(20) As Integer Randomize() For i = 1 To 20 sortarray(i) = Rnd() * 100 Next Array.Sort(sortarray) For i = sortarray.GetUpperBound(0) To 0 Step -1 ListBox1.Items.Add(sortarray(i).ToString) Next i End …

post the codes friend.. :)

otomatis, if this thread already answered then please mark this thread as solved.

i'm modified andreRet code a bit ;) [CODE]Private Sub List1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyDown Or KeyCode = vbKeyUp Then List1.ToolTipText = List1.List(List1.ListIndex + 1) End If End Sub [/CODE]

if this thread already solved. please mark as solved.

your post is not clear.. what dbms are u using? access? mssql? mysql? how far u doing this? show your effort first..

Hi dorothy.v, you mark this thread solved before anyone answered it. if you already found the answer of this thread then would you like to share the answer with us.. so if other members who have same problem with u can solve their problem too.. thanks :)

you must create a button in toolbox and insert icon for it.. right click on toolbar-> properties You can add button and insert icon there.

>>Where could I find a list of the most basic and useful commands with explanations, or even just like a dictionary of commands in VB? [URL="http://msdn.microsoft.com/en-us/default"]MSDN [/URL]and [URL="http://www.google.co.id/"]google[/URL] >>FullScreenButton.Name = "CloseFSButton" 'Do I need this line? no you don't have >>Now how do I make it Close full screen when …

>>value of the first cell of the the first column of the any row index you click. just put your code on the right event. [CODE]Private Sub dgStudentsHandled_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgStudentsHandled.CellClick Dim i As Integer i = dgStudentsHandled.CurrentRow.Index txtStudentNumber.Text = dgStudentsHandled.Item(0, i).Value End Sub[/CODE]

[URL="http://www.daniweb.com/code/snippet217033.html"]see this snippet[/URL]

1. u post in wrong section..this for vb4/5/6 not for [URL="http://www.daniweb.com/forums/forum58.html"]vb.net[/URL] 2. download mysql connector [URL="http://dev.mysql.com/downloads/connector/net/"]here[/URL], you already connected after installing connector. then u can write the program to read mysql data from vb.net 3. show us your effort friend. how far u doing this :)

same as pgmer, you must ensure that your query is correct.

Please use code tags [code][/code] its hard to see them all.. i think your code is ok..maybe its about your inputs.. your inputs must be suitable with database criteria,,like date.. but i don't understand why u assignment value from textboxes to variables but u never using variables in select statment.

"Ambition is a poor excuse for not having sense enough to be lazy" Edgar Bergen, (Charlie McCarthy), US comedian & ventriloquist (1903 - 1978)

Try this, it will return the position on the screen in pixels of the cursor : [CODE] Option Explicit Private Type POINTAPI X As Long Y As Long End Type Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long Public Function GetXCursorPos() As Long Dim pt As POINTAPI …

try this following codes : [CODE]' Shutdown Private Const EWX_LogOff As Long = 0 Private Const EWX_SHUTDOWN As Long = 1 Private Const EWX_REBOOT As Long = 2 Private Const EWX_FORCE As Long = 4 Private Const EWX_POWEROFF As Long = 8 Private Declare Function ExitWindowsEx Lib "user32" (ByVal dwOptions …

arezz09, can u share with us how you solved this.. it can help for other members who have the same question like you..

First, You post on wrong section, this for vb4/5/6 not for [URL="http://www.daniweb.com/forums/forum58.html"]vb.net[/URL] [CODE=VB.Net]Dim formatOut1 As String = "{0,4} {16,23} {27,31}" Dim formatOut2 As String = "{0,12} {16,23} {27,31}"[/CODE] Your format string is out of index. You have 3 items in your format string. The index of those 3 variables start …

See if this help : [CODE]Program CalculateDistance; Uses WinCrt; var x1,x2,y1,y2:integer; d:real; begin Writeln; Write('Input A (X1): ');readln(x1); Write('Input B (X2): ');readln(x2); Write('Input A (Y1): ');readln(y1); Write('Input B (Y2): ');readln(y2); d:=sqrt(sqr(x2-x1)+sqr(y2-y1)); Writeln; Writeln('Distance between A and B is: ',d:4:2); end.[/CODE]

binding data on combo box manualy then add items as u want.

[CODE]' this for create folder at c:\MyPicture\ If (Not System.IO.Directory.Exists("C:\MyPicture")) Then System.IO.Directory.CreateDirectory("C:\MyPicture") End If 'this for open file in picture box Dim OpenFileDialog1 As New OpenFileDialog With OpenFileDialog1 .CheckFileExists = True .ShowReadOnly = False .Filter = "All Files|*.*|Bitmap Files (*)|*.bmp;*.gif;*.jpg" .FilterIndex = 2 If .ShowDialog = DialogResult.OK Then ' Load …

send keys has a key code like honey61399 said..u can't write it straight.. [URL="http://msdn.microsoft.com/en-us/library/system.windows.forms.sendkeys.send.aspx"]see this site[/URL]

>>how do i change the collation read the link provide by adatapost

MySQL is free..

show your effort first friend :)