akbarg64
دوشنبه 17 مهر 1391, 22:22 عصر
سلام دوستان من یه مشکل داشتم در مورد انتقال اطلاعات از اکسل به اکسس.که تونستم خودم حل کنم اما یه مشکل دارم اینکه نام ستون های اکسل فارسی هست و بعضی هاش دو کلمه هست مثلا یکیش هست: قابل تخصیص که متاسفانه خطا میده ضمن اینکه کلا با کلمه تخصیص مشکل داره من ازین کد برای انتقال به اکسس استفاده میکنم.به نظر شما چه راهی به کار ببرم که نیاز نباشه نام ستون ها رو تغییر بدم چون فایل ها زیاد هستند و وقت گیر.ممنون میشم.
Dim cnhrda As ADODB.Connection
Set cnhrda = New ADODB.Connection
cnhrda.CursorLocation = adUseClient
cnhrda.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.path & "\Data\dbase.mdb;"
Dim rsmdb As ADODB.Recordset
Set rsmdb = New ADODB.Recordset
rsmdb.Open "Select * from etebarat", cnhrda, adOpenStatic, adLockOptimistic
rs.MoveFirst
While Not rs.EOF
With rsmdb
.AddNew
!fasl = rs!ÝÕá
!barname = rs!ÈÑäÇãå
!mannage = rs!ãÏíÑíÊ
!tarh = rs!ØÑÍ
!manba = rs!ãäÈÚ
!project = rs!ÑæŽå
!nahveh = rs!äÍæå
!hajm = rs!ÍÌã
!vahed = rs!æÇÍÏ
!khodyari = rs!ÎæÏíÇÑí
!mosavab = rs!ãÕæÈ
'!takhsis = rs!ÊÎÕíÕ
!takhsis = rs!ÞÇÈá
!jazb = rs!ÌÐÈ
!sal = rs!ÓÇá
!shomare = rs!ãæÇÝÞÊäÇãå
.Update
End With
rs.MoveNext
Wend
rsmdb.Close
MsgBox "ÇØáÇÚÇÊ ÈÇ ãæÝÞíÊ ËÈÊ ÔÏ"
Dim cnhrda As ADODB.Connection
Set cnhrda = New ADODB.Connection
cnhrda.CursorLocation = adUseClient
cnhrda.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.path & "\Data\dbase.mdb;"
Dim rsmdb As ADODB.Recordset
Set rsmdb = New ADODB.Recordset
rsmdb.Open "Select * from etebarat", cnhrda, adOpenStatic, adLockOptimistic
rs.MoveFirst
While Not rs.EOF
With rsmdb
.AddNew
!fasl = rs!ÝÕá
!barname = rs!ÈÑäÇãå
!mannage = rs!ãÏíÑíÊ
!tarh = rs!ØÑÍ
!manba = rs!ãäÈÚ
!project = rs!ÑæŽå
!nahveh = rs!äÍæå
!hajm = rs!ÍÌã
!vahed = rs!æÇÍÏ
!khodyari = rs!ÎæÏíÇÑí
!mosavab = rs!ãÕæÈ
'!takhsis = rs!ÊÎÕíÕ
!takhsis = rs!ÞÇÈá
!jazb = rs!ÌÐÈ
!sal = rs!ÓÇá
!shomare = rs!ãæÇÝÞÊäÇãå
.Update
End With
rs.MoveNext
Wend
rsmdb.Close
MsgBox "ÇØáÇÚÇÊ ÈÇ ãæÝÞíÊ ËÈÊ ÔÏ"