Posts
 
Reputation
Joined
Last Seen
0 Reputation Points
Unknown Quality Score

No one has voted on any posts yet. Votes from other community members are used to determine a member's reputation amongst their peers.

0 Endorsements
~242 People Reached
Favorite Forums
Favorite Tags
Member Avatar for Mikarinkazaa

Private Sub cmdLogin_Click() Dim comSave As New ADODB.Command Dim sqlAdd As String Set RS = New ADODB.Recordset With comSave [COLOR="red"].ActiveConnection = ConnDB[/COLOR] .CommandType = adCmdText End With ConnDB.BeginTrans sqlAdd = "INSERT INTO UserName (FullName,IDCard,CustomerID,Office,Address,Telephone,UserId,UserPwd)" sqlAdd = sqlAdd & "VALUES('''& txtFullName.Text & ''', ''' & txtIDCard.Text & ''', ''' & txtCustomerID.Text …

Member Avatar for debasisdas
0
95
Member Avatar for Mikarinkazaa

Sub RecordToScreen() Dim item As Long Set RS = New ADODB.Recordset Statement = "SELECT * FROM tblAsset WHRER AssetID = " & txtAssetID.Text & " picProduct.Picture = LoadPicture(app.path & PictureFileName)" RS.Open Statement, ConnDB, adOpenForwardOnly, adLockReadOnly, adCmdText RS.Close: Set RS = Nothing End Sub ------------------------------------------------------------- :'( Dbug Run-time error '-2147217900(80040e14)': Syntax …

Member Avatar for vb5prgrmr
0
147