DoctorJay
چهارشنبه 23 بهمن 1387, 00:17 صبح
می خواستم بدونم این کدا چه کاری رو انجام می دن ؟؟
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Const SW_SHOWNORMAL = 1
Private Type tagInitCommonControlsEx
lngSize As Long
lngICC As Long
End Type
Private Declare Function InitCommonControlsEx Lib "comctl32.dll" _
(iccex As tagInitCommonControlsEx) As Boolean
Private Const ICC_USEREX_CLASSES = &H200
Public Function InitCommonControlsVB() As Boolean
On Error Resume Next
Dim iccex As tagInitCommonControlsEx
' Ensure CC available:
With iccex
.lngSize = LenB(iccex)
.lngICC = ICC_USEREX_CLASSES
End With
InitCommonControlsEx iccex
InitCommonControlsVB = (Err.Number = 0)
On Error GoTo 0
End Function
Private Sub Form_Initialize()
InitCommonControlsVB
End Sub
و می خواستم یه نفر راجب خط به خط این کدا راهنماییم کنه .
مثلا نقش SqlTxT یا Adoview و یا این شکل دستور رو شرح بده "SELECT * FROM Q"
می دونم که سوالام بسیار ابتداییه . . .
Private Sub Cmd_Print_Click()
Dim SqlTxt As String
Call Cmd_Refresh_Click
On Error Resume Next
Adoview.Close
SqlTxt = "SELECT * FROM Q" & DarsCombo.Text
Set Adoview = New ADODB.Recordset
Adoview.Open SqlTxt, Cnn, adOpenDynamic, adLockPessimistic
Set DataReport1.DataSource = Adoview
DataReport1.Show 1
End Sub
پیشاپیش تشکر
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Const SW_SHOWNORMAL = 1
Private Type tagInitCommonControlsEx
lngSize As Long
lngICC As Long
End Type
Private Declare Function InitCommonControlsEx Lib "comctl32.dll" _
(iccex As tagInitCommonControlsEx) As Boolean
Private Const ICC_USEREX_CLASSES = &H200
Public Function InitCommonControlsVB() As Boolean
On Error Resume Next
Dim iccex As tagInitCommonControlsEx
' Ensure CC available:
With iccex
.lngSize = LenB(iccex)
.lngICC = ICC_USEREX_CLASSES
End With
InitCommonControlsEx iccex
InitCommonControlsVB = (Err.Number = 0)
On Error GoTo 0
End Function
Private Sub Form_Initialize()
InitCommonControlsVB
End Sub
و می خواستم یه نفر راجب خط به خط این کدا راهنماییم کنه .
مثلا نقش SqlTxT یا Adoview و یا این شکل دستور رو شرح بده "SELECT * FROM Q"
می دونم که سوالام بسیار ابتداییه . . .
Private Sub Cmd_Print_Click()
Dim SqlTxt As String
Call Cmd_Refresh_Click
On Error Resume Next
Adoview.Close
SqlTxt = "SELECT * FROM Q" & DarsCombo.Text
Set Adoview = New ADODB.Recordset
Adoview.Open SqlTxt, Cnn, adOpenDynamic, adLockPessimistic
Set DataReport1.DataSource = Adoview
DataReport1.Show 1
End Sub
پیشاپیش تشکر