VERSION 5.00
Object = "{74848F95-A02A-4286-AF0C-A3C755E4A5B3}#1.0#0"; "actskn43.ocx"
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
Begin VB.Form aski1
BorderStyle = 1 'Fixed Single
Caption = "Ask齞an Kurtar"
ClientHeight = 1980
ClientLeft = 8160
ClientTop = 6390
ClientWidth = 4680
LinkTopic = "Form2"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 1980
ScaleWidth = 4680
Begin VB.CommandButton Command1
Caption = "Kurtar"
BeginProperty Font
Name = "Comic Sans MS"
Size = 11.25
Charset = 162
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 0
TabIndex = 3
Top = 960
Width = 4695
End
Begin VB.TextBox Text1
Height = 375
Left = 0
TabIndex = 2
Top = 480
Width = 4695
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel1
Height = 375
Left = 1560
OleObjectBlob = "aski1.frx":0000
TabIndex = 1
Top = 0
Width = 1575
End
Begin ComctlLib.ProgressBar ProgressBar1
Height = 255
Left = 0
TabIndex = 0
Top = 1680
Width = 4695
_ExtentX = 8281
_ExtentY = 450
_Version = 327682
Appearance = 1
End
Begin ACTIVESKINLibCtl.Skin Skin1
Left = 4320
OleObjectBlob = "aski1.frx":0072
Top = 0
End
End
Attribute VB_Name = "aski1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim conn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Public Sub Baglan()
conn.Open "Driver={SQL Server};Server=127.0.0.1;Database=trayhoper;"
End Sub
Private Sub Command1_Click()
On Error GoTo hata:
Dim aski As String
Dim kul As String
kul = Text1.Text
aski = "DELETE FROM CURRENTUSER Where strAccountID = '" & kul & "' "
conn.BeginTrans
conn.Execute (aski)
conn.CommitTrans
MsgBox kul + " " + "isimli Karakter Ask齞an Kurtar齦d?...", vbInformation, "Ask齞an Kurtarma !"
hata:
MsgBox "Ger鏴kle?irilemiyor ...", vbCritical
End Sub
Private Sub Form_Load()
FileName = App.Path & "\TrySkin.skn"
Skin1.LoadSkin FileName
Skin1.ApplySkin Me.hWnd
ProgressBar1.Value = 0
Baglan
End Sub
是連接到數據庫的 不知道怎么弄
[ 本帖最后由 59641314 于 2008-6-10 06:23 编辑 ] |
