Jx_Man

what you mean exactly.. post more informations..

just select id from database..if id key already saved in database then give an error message..

already answered by pogumahone. anyelse friends...

what exactly you want to do?

just insert your codes on button each event.. actually, post your code first.. so we can help you.

are you really don't know how to do it? [CODE] Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim msg As MsgBoxResult If MsgBox("Do you really want to exit ?", MsgBoxStyle.YesNo, "Exit") = msg.Yes Then Me.Close() End If End Sub[/CODE]

[code=vb]Private Sub cmdDelete_Click() Combobox.RemoveItem (Combobox.ListIndex) End Sub [/code]

what type of your field?

what you mean about not working?

Set KeyPreview on your form properties as True Then Try this : [CODE]Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown If e.KeyCode = Keys.F2 Then Button1.Enabled = False End If End Sub[/CODE]

arezz09, you already mark this thread as solved. Would you like to share with us how you solve it ? So, when another member read your thread they will get the answer too. Thanks.

what the error says to you?

see if this help : Declaration [CODE]Option Explicit Private Declare Function GetSystemMenu Lib "user32" _ (ByVal hwnd As Long, _ ByVal bRevert As Long) As Long Private Declare Function RemoveMenu Lib "user32" _ (ByVal hMenu As Long, _ ByVal nPosition As Long, _ ByVal wFlags As Long) As Long Private …

See if this help : [CODE]SaveSetting "AddressBook", "Login\Data", "Username", Trim(txtUserName.Text)[/CODE]

[QUOTE]Dim myInsertQuery As String = "Update Meeting Set Meeting_Date = "", StartTime_Planned = "", EndTime_Planned = "", StartTime_Actual = "", EndTime_Actual = "", ChairedBy = "", Department = "" , Logged_By = "" Where ( Meeting_Subject = '" + Meeting_Subject + "' )"[/QUOTE] your sql statment is wrong. your query …

You can use SaveSetting()

See if this help : [CODE]Arr1 = Split("aaa bbb&ccc ddd&eee","&")[/CODE]

[QUOTE]Can anyone help me show how to upload file into database which is ms access. The file can be document,picture or video..Anyone??? [/QUOTE] show your effort first. so other members can help you.

[QUOTE]is this is possible to plus all that items(Integer) that are in listbox or listview...[/QUOTE] Yes, you can. For listbox : [CODE]Dim i, result As Integer For i = 0 To List1.ListCount result = result + List1.List(i) Next i MsgBox result[/CODE] For Listview : [CODE]Dim i, result As Integer For …

post your code and we try to fix it :)

use blob. save into binary file. [URL="http://coder000.com/store-retrieve-binary-data-blobs-audio-video-image-exe-etc-in-database-in-vb-net/"]see this link[/URL] why you not save the path and play it? its much easier.

change the style to Graphical (as WaltP suggest). [ICODE]Com.Style = 1[/ICODE] but this property is read only..you can't change at the run time. so, you can't do that.

post more info.. what kind of database? MSSQL Server, MySQL, Access?? 3 columns? what are the name of your columns? and where is your effort?? post your code that you've been work..

Function to check id in database [CODE]Public Function CheckId(Id As String) As Boolean rs.Open "SELECT * FROM AAAAA_DEMO WHERE code ='" & Trim(Id) & "'", _ Con, adOpenDynamic, adLockBatchOptimistic While Not rs.EOF If Id = rs!Id Then CheckId = True Else CheckId = False End If rs.MoveNext Wend rs.Close End …

[CODE]Do Until rs.EOF = True Combo1.AddItem rs!CustomerFirstName rs.MoveNext Loop[/CODE]

change your code in line 11 with this following code : [CODE]rs.Open("Select * FROM student", cn, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockBatchOptimistic, 1)[/CODE]

Line 48 in your function IsPrime was wrong [ICODE] For i = 1 To number \ 2[/ICODE] see this : [CODE]Private Function IsPrime(ByVal number As Long) As Boolean Dim i As Integer If number = 1 Then Return False ElseIf number = 2 Then Return True ElseIf number > 2 …

have you attach your database to MS SQL server databases on other computer? also check you server name in another computer, i mean another computer may have a different server name. it will affect your connection string.

see if this help : [CODE]Option Explicit Dim ac As New ADODB.Connection Dim rs As New ADODB.Recordset Private Sub Command1_Click() Set rs = Nothing rs.Open "select * from demo", ac, adOpenDynamic, adLockOptimistic, -1 If rs!UserName = Text1.Text Then ' modified as your user name field name If !rs.Password = Text2.Text …

Hi Ekox, Try this code : [CODE]Program Math1; Uses Wincrt; Var i,n,A: integer; x: real; Begin Writeln('Programe A^n'); Writeln('==================='); Writeln; Write('Input n : ');readln(n); Write('Input A : ');readln(A); Writeln; x:=1; if (n>0) then For i:= 1 to n do x:=x*A else if (n=0) then x:=1 else begin n:=-1*n; For i:= …

Your post is not clear..post more information about what are you trying to do. if you want to use command button then simply click command button on toolbox (left side) and just draw it on the form. Or you want to create a command button?

>>but I do not include code to disable the task manager & taskbar. I'm confused yes you right. cause its my code on previous for other member to disable windows key for mouse cliking ;) for your Question : change registry value to disbale task manager.

see [URL="http://netbooks.dotnet4all.com/2004/08/how-to-print-from-rich-text-box.html"]this site[/URL] and [URL="http://msdn.microsoft.com/en-us/library/ms996492.aspx"]this site too[/URL]

hi, i have a questions for you.. 1. are you didn't used database in your project? how do you check user name if all teacher hv their own user name? in your code just teacher with user name 'adb' can log in, another teacher cannot do that. 2. why you …

[URL="http://www.tek-tips.com/viewthread.cfm?qid=1608862&page=17"]see this link[/URL] and why you used flex grid? u can use a datagrid instead of flexgrid

you mean run notepad of windows program or make a notepad in vb6?

see if this help : [CODE]Public Function IsValidIP(ByVal addr As String) As Boolean 'create our match pattern Dim pattern As String = "^([1-9]|[1-9][0-9]|1[0-9][0-9]|2[0-4][0-9]|25[0-5])(\." & _ "([0-9]|[1-9][0-9]|1[0-9][0-9]|2[0-4][0-9]|25[0-5])){3}$" 'create our Regular Expression object Dim check As New Text.RegularExpressions.Regex(pattern) 'boolean variable to hold the status Dim valid As Boolean = False 'check to …

see if this help: [CODE]Program CountingWords; Uses WinCrt; Var JumPhrase : Integer; Phrase : String; Ul : Char; Procedure CheckWords(Teks: String; Var CW: Integer); Var i: Integer; Begin If (Teks[1]=' ') Then CW:=0 Else CW:=1; For i:= 1 To Length(Teks) Do Begin If (Teks[i]=' ') And (Teks[i+1]<>' ') And (Teks[i+2]<>' …

[QUOTE=;][/QUOTE] See if this help : [CODE]Dim strTEXT As String Dim intSTR_LEN As Integer Dim intCOUNT As Integer Dim boolPALIN As Boolean Private Sub Command1_Click() strTEXT = Text1 boolPALIN = True strTEXT = Replace(strTEXT, ",", "", , , vbTextCompare) strTEXT = Replace(strTEXT, ".", "", , , vbTextCompare) strTEXT = Replace(strTEXT, …

[QUOTE]I used the codes above but I can only retrieve the values (45) ?? what seems to be the problem ..can anyone help me ... I'am a newbie ... I need to sum the columns in the list view the answer should be [193][/QUOTE] it cause you just take the …

save into text file then load it when form loaded

[QUOTE=Nimitmak;1507405]Guys ,i got this code in my project ,but i didnt understand most of it ,if any body can understand then please add comments in it to understand. [CODE] Private Sub cmdclose_Click() Unload Me Unload recoform frmmain.Show frmmain.Image1.Picture = LoadPicture(imagefile) frmmain.cmdont.Enabled = True frmmain.cmdpre.Enabled = True frmmain.cmdrecognize.Enabled = True End …

see if this helps : imports : [CODE]Imports System Imports System.Management Imports System.Management.Instrumentation Imports System.IO Imports System.Collections[/CODE] Procedure to get info : [CODE]Private Sub getMotherBoardDetails() Try Dim objMOS As New ManagementObjectSearcher("SELECT * FROM Win32_BaseBoard") Dim objMan As ManagementObject For Each objMan In objMOS.Get txtCaption.Text = objMan.GetPropertyValue("Caption").ToString() txtCreationClass.Text = objMan.GetPropertyValue("CreationClassName").ToString() txtDescription.Text …

you can write code to accept numbers only and not other character.. try this : [CODE] Private Sub numWeight_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles numWeight.KeyPress Select Case Microsoft.VisualBasic.Asc(e.KeyChar) Case 48 To 57, 8 'Let these key codes pass through Case Else e.Handled = True End Select End …

as debasisdas said you cannot handle the win key. you can disable windows key using api for mouse clicking only and u still can access start button with press it,, this following code for disable win key from mouse clicking. [CODE]Option Explicit ' Dim TFlag As Boolean Private Declare Function …

post your update code, we will try to fix it :)

your parameter is missing on line 56 [ICODE]Set lbl = Me.Controls.Add("forms.label.l")[/ICODE] and also your top, left and width is too small for label, don't forget for m_memo value from user input.. [CODE] For i = 0 To m_equation Set lbl = Me.Controls.Add("vb.label","Label" & i) With lbl .Top = 1000 ' …

[CODE]Public x = 1 'This is whats wrong - it says "End of statement expected" when mouse over Public y = 1 'the "1" [/CODE]

hmm..so what the question here?

your post is not clear.. also show your effort..