{"id":322,"date":"2022-12-05T03:57:54","date_gmt":"2022-12-05T02:57:54","guid":{"rendered":"http:\/\/lesmrdtrucs.mataf35400.fr\/?page_id=322"},"modified":"2022-12-05T17:06:33","modified_gmt":"2022-12-05T16:06:33","slug":"dao-ado","status":"publish","type":"page","link":"https:\/\/lesmrdtrucs.mataf35400.fr\/index.php\/dao-ado\/","title":{"rendered":"DAO & ADO"},"content":{"rendered":"\t\t
\n\t\t\t\t\t\t
\n\t\t\t\t\t\t
\n\t\t\t\t\t
\n\t\t\t
\n\t\t\t\t\t\t
\n\t\t\t\t
\n\t\t\t

Ouverture:<\/h2>\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t
\n\t\t\t\t
\n\t\t\t

DAO<\/h3>\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t
\n\t\t\t\t
\n\t\t\t\t\t\t\t

Data1.DatabaseName = FicBdd <\/em><\/span>
Data1.RecordSource = \u00ab\u00a0[MonChamp]\u00a0\u00bb <\/em><\/span>
Data1.Refresh<\/em><\/span><\/p>\t\t\t\t\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t

\n\t\t\t\t
\n\t\t\t

ADO<\/h3>\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t
\n\t\t\t\t
\n\t\t\t\t\t\t\t

AdoData.ConnectionString = \u00ab\u00a0Provider=Microsoft.Jet.OLEDB.4.0<\/em><\/span>
Data Source=\u00a0\u00bb & FicBdd & \u00ab\u00a0;Persist Security Info=False\u00a0\u00bb <\/em><\/span>
AdoData.RecordSource = \u00ab\u00a0MonChamp\u00a0\u00bb <\/em><\/span>
AdoData.Refresh<\/em><\/span><\/p>\t\t\t\t\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t\t<\/div>\n\t\t<\/div>\n\t\t\t\t\t<\/div>\n\t\t<\/section>\n\t\t\t\t

\n\t\t\t\t\t\t
\n\t\t\t\t\t
\n\t\t\t
\n\t\t\t\t\t\t
\n\t\t\t\t
\n\t\t\t

RecordCount:<\/h2>\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t
\n\t\t\t\t
\n\t\t\t

DAO<\/h3>\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t
\n\t\t\t\t
\n\t\t\t\t\t\t\t

De 0 \u00e0 n-1<\/p>\t\t\t\t\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t

\n\t\t\t\t
\n\t\t\t

ADO<\/h3>\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t
\n\t\t\t\t
\n\t\t\t\t\t\t\t

De 1 \u00e0 n<\/p>\t\t\t\t\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t\t<\/div>\n\t\t<\/div>\n\t\t\t\t\t<\/div>\n\t\t<\/section>\n\t\t\t\t

\n\t\t\t\t\t\t
\n\t\t\t\t\t
\n\t\t\t
\n\t\t\t\t\t\t
\n\t\t\t\t
\n\t\t\t

Find:<\/h2>\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t
\n\t\t\t\t
\n\t\t\t

DAO<\/h3>\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t
\n\t\t\t\t
\n\t\t\t\t\t\t\t

Rec.FindFirst \u00ab\u00a0Criteria = \u00a0\u00bb & toto<\/em><\/span>
if Not Rep.NoMatch then<\/em><\/span><\/p>\t\t\t\t\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t

\n\t\t\t\t
\n\t\t\t

ADO<\/h3>\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t
\n\t\t\t\t
\n\t\t\t\t\t\t\t

Rec.MoveFirst<\/em><\/span>
Rec.Find \u00ab\u00a0Criteria = \u00a0\u00bb & toto<\/em><\/span>
if Rec.AbsolutePosition > 0 then<\/em><\/span><\/p>\t\t\t\t\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t\t<\/div>\n\t\t<\/div>\n\t\t\t\t\t<\/div>\n\t\t<\/section>\n\t\t\t\t

\n\t\t\t\t\t\t
\n\t\t\t\t\t
\n\t\t\t
\n\t\t\t\t\t\t
\n\t\t\t\t
\n\t\t\t

Update:<\/h2>\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t
\n\t\t\t\t
\n\t\t\t

DAO<\/h3>\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t
\n\t\t\t\t
\n\t\t\t\t\t\t\t

Rec.edit<\/em><\/span>
Rec.fields(\u00ab\u00a0Toto\u00a0\u00bb) = MaValeur<\/em><\/span>
Rec.update<\/em><\/span><\/p>\t\t\t\t\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t

\n\t\t\t\t
\n\t\t\t

ADO<\/h3>\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t
\n\t\t\t\t
\n\t\t\t\t\t\t\t

Rec.update \u00ab\u00a0Toto\u00a0\u00bb,MaValeur<\/em><\/span><\/p>\t\t\t\t\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t\t<\/div>\n\t\t<\/div>\n\t\t\t\t\t<\/div>\n\t\t<\/section>\n\t\t\t\t

\n\t\t\t\t\t\t
\n\t\t\t\t\t
\n\t\t\t
\n\t\t\t\t\t\t
\n\t\t\t\t
\n\t\t\t

Le data temporaire (sans contr\u00f4le):<\/h2>\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t
\n\t\t\t\t
\n\t\t\t

DAO<\/h3>\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t
\n\t\t\t\t
\n\t\t\t\t\t\t\t

Global MaTmpBdd As Database<\/em><\/span>
Global MonTmpRec As Recordset<\/em><\/span>
Set MaTmpBdd = OpenDatabase(\u00ab\u00a0Mettre le nom de la base ici\u00a0\u00bb)<\/em><\/span>
Set MonTmpRec = MaTmpBdd.OpenRecordset(\u00ab\u00a0Mettre le nom de la table ici\u00a0\u00bb, dbOpenDynaset)<\/em><\/span><\/p>\t\t\t\t\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t

\n\t\t\t\t
\n\t\t\t

ADO<\/h3>\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t
\n\t\t\t\t
\n\t\t\t\t\t\t\t

‘Ouvre la BDD<\/span>
Dim MaBase As ADODB.Connection<\/span>
Set MaBase = New ADODB.Connection<\/span>
MaBase.Open MaConnString<\/span><\/em><\/p>

‘Ouvre la table<\/span>
Dim MonRec As ADODB.Recordset<\/span>
Set MonRec = New ADODB.Recordset<\/span>
MonRec.CursorType = adOpenKeyset<\/span>
MonRec.LockType = adLockOptimistic<\/span>
MonRec.Open MaTable, MaBase, , , adCmdUnknown<\/span><\/p>

MonCode<\/span><\/p>

MonRec.Close<\/span><\/p>

MaBase.Close<\/span><\/p>

Attention: Pour ajouter un enregistrement, remplacer adCmdUnknown par adCmdTable.
Comme l’emploi est plus compliqu\u00e9, on peut aussi cr\u00e9er un contr\u00f4le \u00ab\u00a0fourre tout\u00a0\u00bb.<\/p>

\u00a0\u00a0 \u00a0With AdoTmp<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0\u00a0 .ConnectionString = AdoData1.ConnectionString<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0\u00a0 .RecordSource = \u00ab\u00a0SELECT * FROM MaTable\u00a0\u00bb<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0\u00a0 .Refresh<\/em><\/span>
\u00a0\u00a0 \u00a0End With<\/em><\/span>

\u00a0\u00a0 \u00a0With AdoTmp.Recordset<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0\u00a0 .MoveLast
<\/em><\/span>\u00a0\u00a0 \u00a0End With<\/em><\/span><\/p>

  • Si l’on cr\u00e9e un nouvel enregistrement avec num\u00e9rotation automatique dans une clause With…. End With, on ne peut r\u00e9cup\u00e9rer le num auto cr\u00e9\u00e9 qu’en sortant de cette clause, puis \u00e9ventuellement en en recr\u00e9ant une nouvelle.<\/li>
  • La MsHFlexgrid ne s’occupe pas du \u00ab\u00a0Screen.MousePointer\u00a0\u00bb. Il faut donc g\u00e9rer \u00ab\u00a0MaGrille.MousePointer\u00a0\u00bb.<\/li><\/ul>\t\t\t\t\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t\t<\/div>\n\t\t<\/div>\n\t\t\t\t\t<\/div>\n\t\t<\/section>\n\t\t\t\t<\/div>\n\t\t","protected":false},"excerpt":{"rendered":"

    Ouverture: DAO Data1.DatabaseName = FicBdd Data1.RecordSource = \u00ab\u00a0[MonChamp]\u00a0\u00bb Data1.Refresh ADO AdoData.ConnectionString = \u00ab\u00a0Provider=Microsoft.Jet.OLEDB.4.0Data Source=\u00a0\u00bb & FicBdd & \u00ab\u00a0;Persist Security Info=False\u00a0\u00bb AdoData.RecordSource = \u00ab\u00a0MonChamp\u00a0\u00bb AdoData.Refresh RecordCount: DAO De 0 \u00e0 n-1 ADO De 1 \u00e0 n Find: DAO Rec.FindFirst \u00ab\u00a0Criteria = \u00a0\u00bb & totoif Not Rep.NoMatch then ADO Rec.MoveFirstRec.Find \u00ab\u00a0Criteria = \u00a0\u00bb & totoif Rec.AbsolutePosition > […]<\/p>\n","protected":false},"author":1,"featured_media":0,"parent":0,"menu_order":0,"comment_status":"closed","ping_status":"closed","template":"","meta":{"ocean_post_layout":"","ocean_both_sidebars_style":"","ocean_both_sidebars_content_width":0,"ocean_both_sidebars_sidebars_width":0,"ocean_sidebar":"","ocean_second_sidebar":"","ocean_disable_margins":"enable","ocean_add_body_class":"","ocean_shortcode_before_top_bar":"","ocean_shortcode_after_top_bar":"","ocean_shortcode_before_header":"","ocean_shortcode_after_header":"","ocean_has_shortcode":"","ocean_shortcode_after_title":"","ocean_shortcode_before_footer_widgets":"","ocean_shortcode_after_footer_widgets":"","ocean_shortcode_before_footer_bottom":"","ocean_shortcode_after_footer_bottom":"","ocean_display_top_bar":"default","ocean_display_header":"default","ocean_header_style":"","ocean_center_header_left_menu":"","ocean_custom_header_template":"","ocean_custom_logo":0,"ocean_custom_retina_logo":0,"ocean_custom_logo_max_width":0,"ocean_custom_logo_tablet_max_width":0,"ocean_custom_logo_mobile_max_width":0,"ocean_custom_logo_max_height":0,"ocean_custom_logo_tablet_max_height":0,"ocean_custom_logo_mobile_max_height":0,"ocean_header_custom_menu":"","ocean_menu_typo_font_family":"","ocean_menu_typo_font_subset":"","ocean_menu_typo_font_size":0,"ocean_menu_typo_font_size_tablet":0,"ocean_menu_typo_font_size_mobile":0,"ocean_menu_typo_font_size_unit":"px","ocean_menu_typo_font_weight":"","ocean_menu_typo_font_weight_tablet":"","ocean_menu_typo_font_weight_mobile":"","ocean_menu_typo_transform":"","ocean_menu_typo_transform_tablet":"","ocean_menu_typo_transform_mobile":"","ocean_menu_typo_line_height":0,"ocean_menu_typo_line_height_tablet":0,"ocean_menu_typo_line_height_mobile":0,"ocean_menu_typo_line_height_unit":"","ocean_menu_typo_spacing":0,"ocean_menu_typo_spacing_tablet":0,"ocean_menu_typo_spacing_mobile":0,"ocean_menu_typo_spacing_unit":"","ocean_menu_link_color":"","ocean_menu_link_color_hover":"","ocean_menu_link_color_active":"","ocean_menu_link_background":"","ocean_menu_link_hover_background":"","ocean_menu_link_active_background":"","ocean_menu_social_links_bg":"","ocean_menu_social_hover_links_bg":"","ocean_menu_social_links_color":"","ocean_menu_social_hover_links_color":"","ocean_disable_title":"default","ocean_disable_heading":"default","ocean_post_title":"","ocean_post_subheading":"","ocean_post_title_style":"","ocean_post_title_background_color":"","ocean_post_title_background":0,"ocean_post_title_bg_image_position":"","ocean_post_title_bg_image_attachment":"","ocean_post_title_bg_image_repeat":"","ocean_post_title_bg_image_size":"","ocean_post_title_height":0,"ocean_post_title_bg_overlay":0.5,"ocean_post_title_bg_overlay_color":"","ocean_disable_breadcrumbs":"default","ocean_breadcrumbs_color":"","ocean_breadcrumbs_separator_color":"","ocean_breadcrumbs_links_color":"","ocean_breadcrumbs_links_hover_color":"","ocean_display_footer_widgets":"default","ocean_display_footer_bottom":"default","ocean_custom_footer_template":"","footnotes":""},"class_list":["post-322","page","type-page","status-publish","hentry","entry"],"_links":{"self":[{"href":"https:\/\/lesmrdtrucs.mataf35400.fr\/index.php\/wp-json\/wp\/v2\/pages\/322","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/lesmrdtrucs.mataf35400.fr\/index.php\/wp-json\/wp\/v2\/pages"}],"about":[{"href":"https:\/\/lesmrdtrucs.mataf35400.fr\/index.php\/wp-json\/wp\/v2\/types\/page"}],"author":[{"embeddable":true,"href":"https:\/\/lesmrdtrucs.mataf35400.fr\/index.php\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/lesmrdtrucs.mataf35400.fr\/index.php\/wp-json\/wp\/v2\/comments?post=322"}],"version-history":[{"count":10,"href":"https:\/\/lesmrdtrucs.mataf35400.fr\/index.php\/wp-json\/wp\/v2\/pages\/322\/revisions"}],"predecessor-version":[{"id":357,"href":"https:\/\/lesmrdtrucs.mataf35400.fr\/index.php\/wp-json\/wp\/v2\/pages\/322\/revisions\/357"}],"wp:attachment":[{"href":"https:\/\/lesmrdtrucs.mataf35400.fr\/index.php\/wp-json\/wp\/v2\/media?parent=322"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}