“Še“ú | F 2007/04/16(Mon) 11:52 |
“ŠeŽÒ | F YK |
‚dƒ[ƒ‹ | F |
‚t‚q‚k | F |
ƒ^ƒCƒgƒ‹ | F Re^8: –ñ››Œ’† ›`›Œ‚ð•\Ž¦ |
>VB‚U‚ðŽg‚Á‚ăIƒ‰ƒNƒ‹‚ÖADOÚ‘±‚µ‚Ä‚¢‚Ü‚·B
>ƒf[ƒ^‚̓f[ƒ^ƒOƒŠƒbƒh‚ðŽg‚Á‚Ä•\Ž¦‚µ‚Ä‚¢‚Ü‚·B
‚Å‚·‚æ‚ËB
DataGrid‚ÌDataSouce—p‚É
Adodc ‚ª“ü‚è‚Ü‚·‚æ‚ËB
Adodc‚ÌRecordset‚ðƒZƒbƒg‚·‚éˆ×‚É‚Í
Adodb.recordSet‚ª•K—v‚Å‚·‚æ‚ËB
dim rs as ADODB.recordset
With rs
.ActiveConnection = connection
.CursorLocation = adUseClient
.CursorType = adOpenStatic
.LockType = adLockOptimistic
.Source = SQL•ª
.Open , , , , adCmdText
End With
debug.print rs.recordcount
Set adodc1.Recordset = rs
‚±‚ñ‚È•—‚Å‘Ê–Ú‚Å‚·‚©B
> •\Ž¦‚³‚ê‚Ä‚¢‚锂µ‚©ƒJƒEƒ“ƒg‚Å‚«‚È‚©‚Á‚½‚Å‚·EE
•\Ž¦‚·‚é‘O‚Écount‚ðŽæ‚Á‚Ä‚¢‚é‚Ì‚ÉH